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INTRODUCTION 



1 . 

The development of the measurement technique reported 
here was required for the determination of the periodic flow 
field behind the rotor of a small, single-stage axial com- 
pressor. With the rotational speed of the rotor of 30,000 
RPM at design conditions, the 18 blades of the rotor result 
in a blade-passage frequency of 9 Khz. Thus a high response 
measurement technique was essential. As reported earlier 
in Ref. 1, the means for determining the time-averaged flow 
at all speeds is available, and such measurements have been 
made to 50% speed. 

The basic idea of the present technique was established 
some time ago (Refs. 2, 3, 4) . This report gives a brief 
review of the measurement concept, results obtained with a 
first set of probes, and describes in detail the calibration 
and application of a new set of probes. The new probes have 
the advantage of being only two-thirds the size of the old 
ones . 
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2 . 



MEASUREMENT CONCEPT 



As described in detail in Ref. 2, a dual-probe digital 
sampling technique is used to determine the flow field behind 
the rotor in a real time regime. The technique incorporates 
two high response Kulite pressure transducers (Fig. 1). 

Using two trigger signals from the compressor shaft (one per 
revolution and one per blade) , digitization of signal data 
can be controlled from the probes which are shown in Fig. 2. 
128 locations can be selectively triggered for any one blade 
passage, thus giving good resolution for the specific area to 
be covered. The control device for the computer acquisition 
of the data is the PACER. Details of this device, which was 
developed in-house, can be found in Refs. 2 and 3. 

Two major changes to the hard- and software of the PACER 
were made recently which are reported in Ref. 4. These 
changes made the lock-on to blade passing frequency totally 
automatic and reliable, and significantly reduced the total 
time for acquisition of a set of data. During the period 
reported here, several errors were found in the work pre- 
sented in Ref. 4; Appendix A identifies the errors and their 
corrections . 

The measurement system consists of two pressure probes, 
one the so-called type "A" probe which is essentially a total 
pressure probe, and the so-called type "B" probe, a total 
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pressure probe bent up 35° from the zero pitch, zero yaw 
axis, in the plane of zero yaw. The PACER allows data to be 
acquired from each of the two probes when they are at identi- 
cally the same location with respect to the rotor. The 
probes can be rotated about the sensor tip. It is noted that 
their outputs when set at different yaw angles could as well 
be considered as the output of different probes of fixed 
geometry. Earlier studies have shown the dependency of a 
total pressure and a type "B" probe on yaw angle. Appendix 
3 gives a brief discussion and outlines the use which can be 
made of the probe characteristics. 

In knowing the output for a certain yaw angle of the "A" 
probe and its output for zero yaw angle, as well as the out- 
put of the "B" probe for zero yaw angle at the same relative 
location, three different pressures are known for what might 
be considered to be a single equivalent multi-sensor probe. 
Reference 1 shows how such pressures can be reduced to values 
of pitch, yaw, and magnitude of the velocity vector. The 
zero yaw angle must be found first by comparing the left- and 
right-hand sides of the type "A" probe output as a function 
of yaw. 

As shown in Appendix B, the type "A" probe output as a 
function of yaw angle in a steady uniform flow is symmetrical 
about a position where the probe is aligned with the flow 
(referred to as the zero yaw position) . if in an unknown 
flow the yaw angle is not zero, by rotating the probe and 
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finding two equal pressure readings separated by a certain 
angle difference and selecting the mid-point between the two 
corresponding angles, the unknown yaw angle can be determined. 
This procedure is in principle the same as the pneumatic 
balancing of a conventional probe (see Ref. 1). However, in 
an actual measurement situation the pressure output is not 
given as a continuous function of yaw angle. In practice, 
the data acquisition system allows digital recording of data 
for 5 to 11 different probe yaw angles. Figs. 3(a) and 3(b) 
give a comparison of calibration data and an approximation 
using a fourth-order polynomial for nine data points. It 
is evident that the characteristics of the probes allow a 
good representation of their output to be obtained for 
P^ = (ct ) and Pg = Pg (a) (a = yaw angle) if only a few values 

are given. From these analytic functions the values P,. 

A. IT13.X 

(maximum output of the "A" probe) , max (maximum output of 
the "B" probe) and a value Pg can be determined very easily. 
Pg A is found from = P^(ct) where a difference in yaw of 126° 
separates right and left branches. This difference is chosen 
because for ±63° of yaw the type "A" probe output corresponds 
closely to static pressure. 

Details of the methods used to derive the pitch angle and 
Mach number from the values of P A max » p Sa an< ^ P B max be 

discussed later in detail. 

In acquiring data from the compressor at a steady operating 
condition, for each of 128 positions in the blade-to-blade 
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direction across a selected blade passage, pressure data are 
acquired from the two probes set at 5 to 11 probe yaw angles. 

Thus at each blade- to-blaae position P = P (a) and P 0 = P (a) 

A A iii d 

can be approximated and yaw and pitch angles and Mach numbers 
can be derived. 
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3. 



SECOND GENERATION PROBES 



In order to improve spatial resolution and keep effects 
such as the probe stem interference as small as possible, a 
new set of Kulite probes was built. 

3 . 1 Probe Design 

The so-called second-generation probes incorporate Kulite 
semi-transducers of the type XC062. The transducers measure 
0.062 inches in diameter and are roughly two-thirds of the 
size of the first generation transducers. Figure 4 shows 
the probes in detail. The other difference compared to the 
first probes is the angle of the tip of the "B" probe; it is 
at 35° rather than 55° with respect to the zero axis. The 
reason is that for a range of 30° to 50° angle of attack the 
relationship between pressure output and angle of an inclined 
pressure probe is almost linear, while for higher angles it 
can reach a minimum and become double valued. An angle of 
35° should give good resolution for pitch angles in the range 
of -5° to +15°. 

The probe tips are covered with machined caps which have 
eight holes arranged in a circle. This way the area where 
the transducers are located is shielded while there is still 
sufficient area for the air to get into and out of the minute 
volume above the membrane. A frequency response in excess of 
100 Khz is retained when the screen is used. 
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3.2. Temperature Sensitivity 



High response semiconductor transducers are generally 
sensitive to temperature changes. That is, changes in the 
temperature of the surrounding medium will produce changes 
in the indicated pressure although there has been no change 
in the pressure level. In the transducer manufacturer's 
specifications it is quoted that a change of 100°F might 
result in a misreading of as much as 2% of the full range 
(25FSI) of pressure. On request the transducers can be 
built so that only 0.5% misreading for the same conditions 
should result. Thus a 100°F temperature change should pro- 
duce no more than 0.125 PSI or--equivalently — 3.46" H 2 0 
misreading . 

The relationship between transducer voltage output and 
pressure is known to be linear (Refs. 2 and 3) . Temperature 
changes result mainly in a shift of the intercept rather 
than the slope of the linear relationship. Since the tempera- 
ture of the flow in the compressor is expected to be about 
50°F higher than ambient, an error of 1.7" H 2 0 might be ex- 
pected to be present in the pressure measurement if no account 
was taken of the temperature sensitivity, assuming the 
manufacturer's specification to be accurate. 

A simple test was made to check the temperature sensi- 
tivity of the "B" probe. The probe was inserted into a con- 
tainer which was vented to atmospheric pressure but which 
could be heated. With the probe connected to the data 
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acquisition system in the usual way, the container tempera- 
ture was changed and the voltage output of the probe was re- 
corded. Figure 5 shows the effect of a temperature change 
of about 60°F over a period of four minutes. A corresponding 
increase of some 2.4" of water in the indicated pressure was 
observed, corresponding to about 0.6% of the full transducer 
range for a temperature change of 100°F. This was consistent 
with the sensitivity quoted by the manufacturer. 

For an average flow Mach number in the compressor of 
0.7, with a corresponding dynamic head of 154 inches of water, 
an apparent shift in the transducer intercept of 1 to 2 inches 
of water is not large. Also, since the shift would be similar 
at different probe angles (assuming the transducer tempera- 
ture would not change significantly) , measurements based on 
differences between pressures from the same probe set at dif- 
ferent angles, would be little affected. However, as readings 
from the "A" and "B" probe are both involved in calculating 
the pitch angle, the probes must give absolute pressure 
levels accurately. Therefore there is need for on-line cali- 
bration as data is acquired at any new test condition. 
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4. 



PROBE CALIBRATION 



4.1. Calibration Procedure 

The range of Mach number, pitch and yaw angle over 
which the probes were calibrated, had to cover the ranges 
which were expected in the compressor measurements. The 
freejet used for the calibration, which is described in 
Ref. 1, is capable of Mach numbers up to 0.9, pitch angles 
from -45° to +45° and yaw angles from 0° to 360°. Figures 
6 (a), (b) and (.c) show details of the probe hook-up and in- 

strumentation which was used. Table I gives the input/output 
assignment list for the data acquisition system. 

The "A" and "B" probes were calibrated separately. 

The probe outputs were each recorded for a total of 9 
pitch angles (-15° to +25° in 5° increments) and 6 Mach 
numbers (0.2 to 0.7 in 0.1 increments). For each of these 
54 configurations the probes were yawed from -80° to +80°, 
as data were continuously recorded. This procedure served 
to establish the complete pressure vs. voltage output 
characteristics of the probes, information to be used 
later in the analysis and interpretation measurements in 
the compressor. 

The transducers were scaled using bridge adjustments 
to give engineering units on the DVM. The angle potenti- 
ometer was set to read linearly in increments of 0.1°. 
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The Kulite transducers were scaled to read in increments 
of ,01 inches of water, differential pressure. The slope 
and intercept of the Kulite transducer were checked and 
adjusted as necessary before taking data at each new test 
condition. The intercept was adjusted to zero by applying 
the jet reference stagnation pressure to the reference 
side of the probe transducer with the prcbe tip aligned 
with the flow and balancing the transducer bridge. The 
slope was set by adjusting the output of the transducer 
to be equal to the jet stagnation pressure with atmos- 
pheric pressure as reference. 

For each configuration of probe, Mach number, and 
pitch angle, the procedure was as follows: 

(i) Reference measurements for the jet (stagna- 
tion pressure and temperature, and ambient 
pressure) were recorded. 

(ii) The probe was swept steadily from -80° to 
+80° yaw angle as 150 data values of both 
probe voltage output and yaw angle potenti- 
ometer reading were acquired by the computer 
(Fig. 6) . The jet reference measurements 
were recorded again. 

(iii) The procedure in (ii) was repeated but with 
the probe yaw angle swept back from +80° to 
-80°. 

The three sets of reference measurements were com- 
pared to verify the steadiness of the test conditions. 

When all data were taken, a printout was produced on the 
line printer and a plot of pressure versus yaw angle 
was generated on the X-Y plotter. 
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For each probe, the procedure in (i)-(iii) was 
repeated for each pitch angle with the jet Mach number 
fixed. The jet Mach number was then adjusted to the next 
value and the complete procedure repeated again. 

4.2. Data Acquisition and Storage 

For each of the 54 configurations a total of 640 
numbers were stored in one data file as a 2 by 320 array. 
The computer program used for the data acquisition was 
&XALIB (on cartridge 26, FORTRAN IV). The program is 
listed in Appendix C together with program &YAW (on car- 
tridge 26, FORTRAN IV). Both programs (&KALI3 and &YAW) 
are acquisiton programs for the calibration of type "A" 
and "B" probes. The difference is that program &YAW re- 
cords--in a more conventional way — data from one fixed 
yaw position as the average of ten readings for up to 31 
positions, while program &KALIB gathers data for continu- 
ously varying yaw position. 

It was found that the average of multiple samples 
taken at a fixed yaw position did not give more accurate 
results than a single reading. Figure 7 shows a com- 
parison between the output obtained with the two different 
data acquisition methods. The good agreement is an indi- 
cation of the steadiness of the flow in the free jet. 
Figure 8 shows the output of a total pressure Kulite 
probe held fixed in the jet over a period of 4 minutes, 
during which 1000 single readings were recorded. The 
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largest disturbances shown in Fig. 8 are probably the 
result of distinct changes in the ambient pressure re- 
sulting from doors being opened or closed in the build- 
ing, rather than fluctuations in the jet itself. 

The data acquisition program &KALIB is fairly 
simple and contains explanations in the program listing. 
Details of the data arrangement in the array are given in 
the program listing (Program &KALIB, statement numbers 
46 through 77) . 

4.3. Type "A" Probe Results 

Figure 9 gives an example of the type "A" probe 
data output at fixed Mach number for each of nine pitch 
angles. Shown is the probe voltage output versus yaw 
angle. Such plots provided a visual check of the acquired 
data. Table II gives an example of the data recorded for 
one Mach number and one pitch angle for the "A" probe. 

All the data in Table II are stored in one file for 
each configuration. Table III gives a guide to the data 
files for the "A" probe calibration. They are stored on 
cartridge 26. The file names follow the following 
logic : 

X Y K Z R R 

where 

X = A for the "A" probe, or = B for the "B" probe 
Y = 2, 3, 4, . . . — Mach number x 10 

K = K, Kulite 
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Z = P for positive or = N for negative pitch angle 
RR = 15, 10, 05, etc., = magnitude of the pitch angle 
All data taken for the "A" probe appeared to be well 
behaved and useful throughout. 

4 . 4 Type "B" Probe Results 

First measurements with the "B" probe showed poor 
to unusable results. The output of the probe as a function 
of yaw angle was unsymmetrical for positive or negative yaw 
angles. Figure 10 shows the output at one Mach number, for 
the full range of pitch angles. An investigation of the 
probe tip under the microscope showed that some of the 
holes in the protective screen at the probe tip were par- 
tially blocked by particles of dirt or glue (Fig. 11(a) , 
and (b)) . The holes were cleaned and the calibration rerun. 
Figure 12 shows the results at a Mach number of 0.4. The 
characteristics of the probe were seen to be much improved 
and satisfactory for the intended application. Table IV 
gives the list of the data file names as stored on car- 
tridge 26. 

4 . 5 . Calibration Data Analysis 

For the "A" probe the output of the probe as a 
function of yaw angle P^ = P A (a) was analysed for each 
of the combination of Mach number and pitch angle. First, 
the maximum value, P^ max, was calculated as the maximum 
value of a fourth-order polynomial curve fit in the 
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-20° <a< 20°. Over this limited range the curve = P, (a) 

was fairly flat and a very precise determination of the 

maximum value was possible. Second, to establish values 

of P for each curve, (see Section 2) , the data were surveyed 
b A 

to find the yaw angle closest to -63°. Data at this and 
at four values above and four values below this particu- 
lar yaw angle were approximated with a second-order 
polynominal and the corresponding value of P^, designated 
p Sa l y aw was ca l cu l ate ^. A second-order polynomial ap- 
proximation for this part of the curve was adequate since 
the characteristic was nearly linear in this range (see 
also Appendix 3) . The same procedure was used for the 
right hand side of the characteristic to establish the 

value, Ps- , at a yaw angle of +63°. The two values were 
a R 

found to be the same to within a small deviation for all 

54 configurations. The value of P^ was calculated as 

b A 

the average of p sal anc * p Sa r * Figure 13 is an illustra- 
tion of the data reduction. 

The only data needed from the "B" probe was the max- 
imum pressure output at each test condition. This value 
always occured for a yaw angle of zero degrees when the 
flow was aligned. The maximum was found by approximating 
the output values of Pg over the yaw angle range 
-30° < a < 30° with a fourth-order polynomial and solving 
for zero slope. The corresponding yaw angle was found 
to be very close to zero for all 54 configurations. 
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Figure 14 shows a curve P 3 = ? 3 (ct) for one Mach number 
and one pitch angle with the value established for P_ max. 

n 

The values of P. max , P q , and P 0 max , so derived, 

A 

were considered to be analogous to the outputs of a 
conventional pneumatic multi-sensor probe. The calibra- 
tion and reduction of measurements to values of Mach 
number and pitch angle (the yaw angle was always zero) 
could be handled in exactly the same way as was done for 
the combination temperature-pneumatic probe (see Ref. 1). 

The dimensionless velocity, X, was used instead of the 

y 

Mach number, M where X is defined as X -- where 
V t = V 2 T t , the "limiting" velocity. The quantity 
X can be expressed in terms of Mach number as 



X 






1 + 



1=1 M 2 
2 



For each of the 54 test conditions, using the values 

P^ max, Pg , and P 3 max, the coefficients 8 and y were 
A 

calculated where 

„ _ P A max ~ P Sa ( 1 ) 

p ~ P 

A max 



P P 

y = A max ~ B max ( 2 ) 

P A max ~ Ps A 

and a third coefficient, 6, was examined where 

6 = 8 * y 
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3 is derived from values of the "A" probe only. The "A" probe 
is insensitive to pitch angle as long as it does not exceed +15° 
to +20°. Hence y provides the measurement of the pitch angle. 
The coefficients 3 , Y , and 6 are discussed in detail in 
Ref. 1. 

The data for a complete calibration are given in Table V. 

It can be seen that at fixed Mach number the value of 3 is 
always about the same regardless of the pitch angle while y 
changes significantly with pitch angle. The changes in y with 
changes in Mach number are seen to be small. 

If X is expressed as a function of 3 and y , X = X(B,y) 
and <J> , the pitch angle is expressed as a function of 3 and 
y , <J> = <J>(B,y) the functions X(8,y) and <J>(3,y) can be 
approximated with polynomials using the methods described in 
Ref. 6, such that 



L i M , . . . 
X = I \ Yc. .3 D 1 

i=l I j = l^ 



Y 



( i— 1 ] 



L ( M , . . . > 

= I ly ] 

i=l ( j=l J ) 



Y 



(i-i: 



where C. . and D. . are constant coefficients. Figs. 15(a) 

ij ij 

and (b) show the surfaces which were obtained for X(3 ,y) and 
iJ>(B/Y) ' respectively. 

The programs written to approximate X = X(3 ,y) and 
<j> = <MB ,y) / based on the subroutines given in Ref. 6, are 

&REST8 and &REST9 . The programs are described in detail in 
Appendix D. It is noted that the coefficients were derived 
for the pitch angle expressed in radians. 
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A check of the approximation was performed in order 
to establish its quality. For the measurements of 8 and y 
from the calibration X and 9 were calculated using equations 
(3) and (4) . The results were compared with the corres- 
ponding values known to have been set when the measure- 
ments were made. Errors in the dimensionless velocity, ey , 
and errors in the pitch angle, e, , were defined as 

X m " x ^ 
m c 

£ X X ' 100 (5) 

m 

and 

Ex = - 9„ ( 6 ) 

9 y m c 

where the subscription m denotes the value measured or known 
to have been set and subscript c denotes the value calcu- 
lated using the surface approximation. 

The error is expressed as a percentage of the 
measured value while for the pitch angle the absolute dif- 
ference in degrees between measurement and calculation is 
calculated. A percentage error in angle is meaningless 
close to zero pitch angle. 

Table VI gives the coefficients obtained for the X 
and 9 surfaces. Also shown are the errors and 

obtained using equation (3) and equation (4). Approxi- 
mations were derived for each of 36 possibilities con- 
sisting of combinations of first to sixth order approxi- 
mation for 8 and first to sixth order approximation for v. 
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The coefficients shown in Table VI gave the best results 
on average over the range of the calibration. They are 
stored as 7 by 7 arrays under the file names shown on 
cartridge 26. It is noted that the errors shown in Table 
VI are an indication only of the degree of accuracy of 
the approximation technique. 



18 - 



VERIFICATION TESTS 



5 . 

Two tests to evaluate the accuracy of the calibration 
and of the data reduction technique were made: (1) The 

raw data from the calibration were treated as test data 
and the reduction procedure to calculate X and <t> was applied 
(2) The probes were mounted together on the freejet, the 
flow was adjusted in Mach number and the two probes were 
set together to the same pitch angles, w 7 hicn were unknown 
to the operator (see 5.2.) . Data were acquired at specific 
yaw angles and reduced as in the compressor application. 

The results are described in the following paragraphs. 

5.1. Verification Using Calibration Data 

From the calibration test, the pressures for the 
"A" and "B" probe were recorded for fixed Mach number and 
pitch angle as ? A = P^(a) and = P Q (a) for a range of 
yaw angle of -8C° < a < 80°. These distributions were 
each approximated using a sixth order polynomial, so that 
values and P_ could be interpolated at any yaw angle. 

For the "A" probe 9 yaw angles were chosen (+65°, + 45^, 

+30°, +15°, 0°) so that the range of yaw angle necessary 
to handle the data reduction was covered. Since for the 
"•3" probe sufficient values are required to determine 
only the maximum output, 9 different yaw angles for a 
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relatively small range were chosen (+30°, +22.5 +15°, 

/ 

+7.5°, 0°). Arrays PA(9) and YAWA(9) were generated to 
contain pressure and yaw angles respectively for the "A" 
probe and similarly PB(9) and YAWB(9) were generated for 
the "B" probe. These data were then in a format as if 
they were produced by the data acquisition program for 
compressor measurements, and could be reduced in the same 
way . 

From the fourth order polynomial for the "B" probe 
data, the maximum value p Birax and yaw angle at which it 
occured were stored, for each data set. 

PA (9) vs. YAWA ( 9 ) and PB(9) vs. YAWB(9) were approxi- 
mated using fourth order polynomials. For each data set 
the curve P^ = P A (a) was searched for the yaw angles where 
the spread between left and right branches was 126°. 
Corresponding to definitions used in the reduction of 
calibration data, the pressure determined at the left 
branch was Pg^ an< ^ t ^ le one at r ight branch was Pg^ . 

These pressures were as defined here, the same and 
were equivalently equal to the value P$ A (see Fig. 13) . 

P, was calculated using the fourth order polynomial 

max 

P A (a) at the value of yaw angle midway between the values 
corresponding to p sa b anc ^ ?s Ar* 

8 and y were calculated using equations (1) and (2) 
for each data set. Using these values, the coefficients 
from data files MISTXV and MISTIFI and the aquations (3) 



20 



and (4) , the corresponding values of X and <*> were computed. 
The yaw angle was taken to be that corresponding to the 
value Pg max because the "B" probe had a clearly defined 
maximum whereas the "A" probe did not (see Figs. 13 and 14). 
The values so obtained for X, <£, and a using this reduction 
technique were compared to the corresponding values known 
to have been set and recorded during the test. Errors 
were calculated following equations (5) and (6) . A third 
error, e a , for yaw was calculated using 



where a m was the measured yaw angle and a c was the yaw angle 

calculated ironi the B probe data. Since ct was always 
zero during the calibration, the error z a so defined was 

equal to minus the value calculated in the reduction pro- 
cedure . 

The calculations described required extensive data 
handling. A program was written (EVALU) to read the two 
data files (for the "A” and "B" probes) and carry out the 
calculations. The program accesses and reduces data for 
one configuration (Mach number and pitch angle) at a time. 

It prints the calculated and measured values and the errors 
defined in equations (5), (6), and (7) before returning 

automatically to read the files for data from the next 
configuration. Program EVALU is described in detail in 
Appendix E. 
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Table VII shows a comparison of the measured and 
calculated data. Values for Mach number from 0.3 to 0.7 
and pitch angle between 0° and 15° are given since these 
are the range of values expected in the intended appli- 
cation. The average error in X (or velocity) was about 
-0.4% with a maximum value of -1.336%. The average pitch 
angle error was 0.12° with a maximum value of 1.36°. 

An average yaw angle error of 0.6° was obtained with a 
maximum error of -1.16°. Figure 16(a), (b) and (c) show 

these errors plotted as functions of Mach number and 
pitch angle. No significant trends were detected in 
these data except perhaps in e . Table VII shows that 
the yaw angle error was always negative at an average 
magnitude of roughly half a degree. This is probably 
an indication of the fixed error involved in mounting 
the probe on the freejet. 

It should be noted that the probe mounting used on 
the freejet and on the compressor were not the same. 

After the calibration and verification tests were made 
on the freejet, the probes were mounted in special actu- 
ators for use on the compressor. First however, the 
assembled probe and actuators were mounted in turn on a 
six foot long, four inch diameter pipe which was fed by 
the laboratory air supply. In this pipe, due to its 
length to diameter ratio, a steady symmetrical airflow 
parallel to the pine centerline was assured. For 
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different Mach numbers--pi tch angle was constrained to 
zero degrees--each probe was yawed about its tip to either 
side. By comparing left and right branches of the indi- 
cated probe output the yaw angle vernier was set to zero 
at the point of symmetry, corresponding to aligned flow. 
The probe was secured in the actuator so that for com- 
pressor measurements, zero yaw corresponded precisely to 
alignment with the axial flow direction through the 
machine . 

5.2. Verification on the Freejet 

In order to verify the probe calibration and data 
reduction in a known flow, the probes were mounted to- 
gether on the freejet. Only the yaw angle of one probe 
(the "A" probe) could be read using the data acquisition 
system. The probes were displaced peripherally at an 
angle of 90° to each other (see Fig. 6) . While the tip 
of the "B" probe was on the centerline, the tip of the 
"A" probe was retracted radially about one inch from the 
centerline to avoid flow interference between the probes. 
Both probes were mounted on the same type of pitch angle 
adjustment device. 

In the test procedure the probes were set in unison 
to controlled pitch angles and Mach numbers which were 
unknown to the operator. At each setting, the two probes 
were each rotated to 9 different yaw angles (+65°, +45°, 
+30°, +15°, 0°) . Data were taken for each of the 9 yaw 
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positions. The pressure readings recorded were the average 
of 10 sucessive samples. Before the actual test the zero 
drift of the sensors was checked. For the "A" probe this 
was done by comparing the probe output when set to zero 
pitch angle with pressure. For the "B" probe, the probe was 
set to -35° in pitch (see Fig. 4) and a similar compari- 
son was made. The data taken were not stored but only 
printed. Appendix F contains the computer program. TEST 
which acquired the data and performed the data reduction. 

In order to check the yaw angle determined by the 
reduction procedure the probe yaw angle data were artifi- 
cially offset. The 9 yaw positions recorded were changed 
by adding a constant to each: 65°+X, 45°+X, 30°+X, 15°+X, 

0°+X, -15°+X , -30°+X, -4 5°+X , -65°+X. The data reduction 
procedure should then produce a value for the yaw angle 
equal to X. 

Table VIII shows results of the verification tests. 

Shown are the results for values of Mach number and pitch 
angle which are typical of those to be expected in the 
compressor. The errors given in Table VIII are defined as 



e 



X 




100 



c 4> = 4> s - <J> 



C 



a 



a 



a 



s 



c 



where index s is the set condition and c the calculated 



The values of e w £,, and e obtained were considered 

X <j> a 

to represent an acceptable accuracy for the planned appli- 
cation of the technique. In particular, the accuracy of 
the pitch angle measurement was encouraging. The pitch 
angle was of particular concern because the distribution 
of pitch behind the rotor was a particular goal of the 
intended measurements which could lead to important con- 
clusions concerning the flow through the rotor. As shown 
in Tables VII and VIII, the errors in pitch angle measure- 
ment appear to be acceptable. 
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6 . APPLICATION IN COMPRESSOR TESTS 

Complete results of compressor measurements made with 
the probe system will be reported later. Some initial 
measurements are reported here to examine and illustrate 
the reliability and accuracy of the probe system and of 
the data reduction. Since the data acquisition in the 
compressor is more complicated than in calibration tests 
on the freejet, the procedures and the programs used are 
described in detail. 

6.1. Necessity of an Online-Calibration 

The semi-conductor transducers are, to some degree, 
sensitive to temperature change as well as to differential 
pressure change. If a relationship between differential 
pressure and voltage output of the transducer was estab- 
lished by calibration before the compressor was started, 
there would be no guarantee that this relationship would 
remain valid while the machine was running. A total 
temperature rise of 25°F occurs in flow through the 
rotor and the actual temperature of the probe itself 
must increase, but can never be known precisely. The 
magnitude of the probe temperature rise is large enough 
however that the change in the transducer's voltage/ 
pressure relationship must be taken into account in some 
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way. This is done through online calibration. 



6.2. Online Calibration 

Although there is a temperature sensitivity, the 
relationship between the voltage output of the transducer 
and the differential pressure is found to be always linear 
(Ref. 2, 3). Thus, if e denotes the voltage output and 
AP the corresponding differential pressure, the equation 

AP = i + S * e (8) 

describes the calibration, where i is the intercept and 
S is the slope. 

The transducer is arranged in the probes such that 
any desired constant pressure, P^., can be applied to the 
back, or reference side, of the transducer. The unknown 
pressure on the front of the transducer, P, which is 
varying in time, is given by P = AP + P r , or 

P = i + S ’ e + P r (9) 

The on-line calibration procedure establishes values 
for the slope and intercept while the compressor is oper- 
ating at the speed and flow rate at which probe data are 
required. The procedure to establish the slope is the 
same for both the Type "A" and Type "B" probes. The 
procedure for the intercept is more elaborate and quite 
different for the two probes. The procedures are described 
separately in the following paragraphs. 
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6.2.1. Procedure For Slope 



At a given steady machine condition, the time 
average probe pressure, P, is constant. Because of thermal 
inertia it is reasonable to assume that both the slope S 
and the intercept i are also constant, although unknown. 

If two different reference pressures, P r ^ and P r2 , are 
applied to the transducer in turn, and the corresponding 
time-averaged output voltages e^ and e^ are recorded then, 
from equation (9) , 

p = i + s • il + P ri (10a) 



and 



P = i + S • e 2 + P r2 (10b) 

combining these equations, it follows that 



S 




(ID 



Equation (11) provides the means to calculate the slope 
of the transducer from measurements. In practice four to 
five different reference pressures are applied and the 
slope is calculated as a linear approximation (by least 
squares) to the variation of e vs. P . 

6.2.2. Procedure For Type "A" Probe Intercept 

The time averaged flow conditions in the 
measuring plane are established using the combination 
pneumatic and temperature probe reported in Ref.l. The 
probe determines values for the Mach number , pitch angle 
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and yaw angle* *. The combination probe tip, with its 
arrangement of four pressure tubes, is shown in Fig. 17. 
When the probe is aligned to balance pressures P 7 and 
P^, the pressure referred to as P-^ is a measurement of 
the total pressure, since the flow pitch angle can not 
exceed about 11° at the rotor exit. Similarly, the type 
"A" probe when aligned at the time-averaged yaw angle 
is also in principle, a total pressure probe. By equating 
the measured pneumatic pressure P, to be equal to the 
time-average of the pressure seen by the type "A" probe, 
P^, the intercept of the "A"-probe can be calculated 
using equation (10)**. 

Data for the calculation of the intercept 
was gathered during the acquisition of time-resolved flow 



* 

The question of whether a pneumatic probe can measure 
the correct time-averaged values of fluctuating pressures, 
raised in Ref. 7 and Ref. 8, was addressed in Ref. 1. It 
was shown that for the conditions measured to date, the 
results of the combination probe were accurate. Neverthe- 
less, the possibility that an increase in rotor speed, 
resulting in higher fluctuation pressure amplitudes and 
pressure ratios, might affect the accuracy of the pneumatic 
measurements is accepted; and close attention will be paid 

to it in the future. 

* * 

The "time-average" voltage could be recorded using 
the integrating DVM or by acquiring a large number of dis- 
creet samples at arbitrary intervals using the KP 5610 A/D 
converter and computing the average. In early tests, the 
samples for the time-average measurements were taken using 
the A/D converter in the so called "free-run" mode. Roughly 
1500 single data samples were collected over about 15 msec. 

A comparison of the average values acquired this way with 
those given by a digital voltmeter consistently showed 
agreement to within +0.5%. Subsequently, for convenience, 
the DVM was used to acquire values of the time-averaged 
voltage S from the Kulite probes during the online calibration. 
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data. At each yaw angle to which the two probes were 
set, readings of the probe transducer outputs were re- 
corded using the DVM. Data from the combination probe 
were acquired also; however, the probe’s yaw angle was 
not changed. The DVM voltage readings from the "A" 
and "B" probes were approximated as functions of the 
corresponding yaw angles by fourth order polynomials, 
e^ = e^(a) and e^ - = e^(a) . The maxima of these functions 
were derived mathematically and designated e^max and 
e^max respectively. 

The value e^max was found to exist at a 
flow yaw angle very close to the yaw angle measured with 
the combination probe. For the A probe, a pressure co- 
efficient was defined as 



p Amax “ p S 

C P = — =— 

AO _ P, 



( 12 ) 



*t - ‘S 

The index "0” indicates that the coefficient was derived 
for the yaw angle where the probe was aligned with the 
time-averaged flow. Ideally Cp would be unity, since 
the "A" probe is expected to measure total pressure if 
properly aligned with the flow. However, during the 
calibration procedure (reported in Section 4) it was 
found that Cp^Q depended slightly on the probe pitch 
angle, although not on Mach number. As shown in Fig. 18, 



Cp A o varies within the range of 0.990 to 1.020. The 
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relationship between Cp^Q and pitch angle obtained in 
the steady-flow calibration was approximated by a fourth 
order polynomial. Using this approximation and the time- 
averaged pitch angle, stagnation pressure (P^ - ) and 
static pressure (Pj) , P^ max can be calculated using 
Equation (12) . 

Knowing the values eTmax, the slope s and the 
reference pressure (P r ) , the intercept (i) of the A-probe 
can be calculated using equation (10). Thus the rela- 
tionship between the probe and the time-varying voltage 
signal from "A" probe is known, using equation (9). 
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6.2.3. Procedure for Type "B" Probe Intercept 



The determination of the intercept of the "B" 
probe is indirect. Unlike the "A" probe there is no 
matching pneumatic measurement for the "B" probe. Such 
an approach would be too inaccurate. The "B" probe is 
intended to be very sensitive to pitch angle changes, 
so that a very small difference in tip geometry of the 
Kulite and an "equivalent" pneumatic probe would cause 
a potentially large error in the calculation of the 
intercept. Thus an alternate way to derive the "B"- 
probe intercept was adopted. 

During the online calibration procedure, the 
"A" and "B" probes are set to the same yaw angle as the 
combination probe. In this orientation, all three 
probes are aligned with the time-average flow vector. 

This flow vector is determined totally by the combination 
probe, and thus the yaw angle, pitch angle, Mach number, 
total and static pressures are known for the time-averaged 
conditions . 



A pressure coefficients, Cp^ can be calcu- 
lated for the "B" probe using the definition 




If the pressure reading of the "B" 
the flow is referred to as ? Bmax # 



(13) 

probe when aligned with 
the corresponding pressure 
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coefficient, c p B Q'( at zero yaw angle of the probe with 
respect to the flow) is given by 



P 



Bmax 



P 



S 



(14) 




P 



P 



t 



S 



From the calibration tests reported in Section 



4, values of Cp BQ were determined for each of 54 combina- 
tions of Mach number and pitch angle. These data are 
given in Table IX. Figure 19 shows these calibration data 

for C- plotted as a function of Mach number and pitch 
^BO 

angle. While the dependence on Mach number is seen to 
be small, a strong and well-behaved relationship between 
and pitch angle can be ovserved. ^P 3 q was viewed 
as a function, 



The function in equation (15) was similarly approximated 
using the calibration data as a surface depending on two 
independent variables (Section 4.4). Appendix G describes 
the computer program used and illustrates the results. 

Using the expression for the surface represented 
by equation (15) , and values of the Mach number and pitch 
angle, given by the combination probe, at each operating 
point, Cp ^recalculated. Then, using the time-averaged 
total and static pressures given by the combination probe 
measurement/ a corresponding value of ? Brnax can be calcula- 
ted using equation (14). Using the recorded value of the 



C 



: pbo = c p B o ( x '^ 



(15) 
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"B" probe voltage output, e-inax, corresponding P , and 
the value established earlier for the transducer slope, 
the intercept of the "B" probe was calculated using 
equation (10). Thereafter, equation (9) could be used 
to convert time-dependent voltage readings to absolute 
pressure values. 

6.3. Data Acquisition in TX- Compressor Measurements 

The hardware of the dual probe digital sampling 
technique was described in Section 2. The present sec- 
tion describes the procedures and software used to ac- 
quire and store raw data necessary to determine blade- 
to-blade velocity distributions. The sequence of 
events is summarized in Table X. 

As described in Section 2 and Section 4.5, at 
each blade-to-blade location sufficient data from the 
"A" and "B" probes were required that functions 

= P A (a) and P B = ? B (a) could be established. However, 
the yaw angle was not known apriori for any of the 256 
positions at which data were acquired. The time average 
yaw angle was known from the combination probe and 
variations in yaw angle were selected to be about this 
value . 

It was found that yaw angle varied typically -5° 
to +15° from the time averaged value. Thus data were 
acquired for 9 different probe yaw angles covering a 
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range of the average yaw angle minus 5° minus 65°, and 
plus 15° plus 65°, in order to make sure that a sufficient 
range was covered to define the maximum values from 
p A = p A (a) and P B = p g ( a) for ; a = +63°. 

Program &ABKUL was used for the data acquisition. 

It is described in detail in Appendix A. Figures 20a and 

20b show an output of the raw data. Shown are the outputs 

of "A" probe (Fig. 20 a + b) & "B" probe (Fig. 20 c + d) for all 

256 positions and for the 9 different probe yaw angle 
settings. The plots were generated by program &WAVE 
which is described in Appendix I. Besides plotting data 
from a data file the program also offers the possibility 
to acquire data from one Kulite probe and plot it on-line. 

All data acquired with program SABKUL are stored 
in one large data file. This includes the unsteady meas- 
urement data, all the steady state data for the online 
calibration and the combination probe measurements. Thus 
each data set is complete and independent of any other 
information . 

Table Xa shows an example of steady state data 
acquired for the online calibration (see Section 6.2.); 
values for the slopes of the Type A before (1st) and 
after (2nd) the paced data acquisition. This output 
allows comparison of the results of the two calibrations. 

If the corresponding values of slope differ by more than 
+ 1.5%, which indicates drift during the measurement 
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period, the data are not accepted. The "intercepts" of 
"A" and "B" probes are also printed. These values are 
only used however to monitor changes during the data 
acquisition. The actual intercept of the voltage- 
pressure characteristic must be calculated from these 
values as described in Section 6.2. Here again a dif- 
ference of more than +1.5% is taken as evidence that 
the transducer drifted during the measurement. The 
other data shown in Table X is raw data which is printed 
out immediately after it is acquired so that it can be 
checked. Combination probe data are always acquired 
with the Kulite probe data. Table Xb shows steady- 
state data taken with the data from the "A" and "B" 
probes. For each probe yaw angle setting the same data 
is acquired as for the online calibration. The values 
"yaw A pr . " and "yaw B pr . " give the probe yaw angle 
settings (nine positions) . In the third column values 
DCA and DCB are printed. As described in Section 6.2., 
these are the dc voltage levels of the "A" and "B" probes 
which will be used for the determination of the inter- 
cept. For each of the nine positions, values called 
"averaged values paced output" for "A" and "B" probes are 
printed. Those are the averages of the 256 single meas- 
urements of each of the probes. A comparison of these 
values with the DCA and DCB values — if the decimal point 
is neglected — show differences of up to 5%. This is 
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because the DC values are derived for the whole rotor, 
while the paced output values are from two selected blade 
pairs only. 

The single raw data file is arranged in a 20 by 256 
array. Table XI shows the location of the data within that 
array. Column #1 contains the data for the online calibra- 
tion only while column #20 is reserved for the steady state 
data acquired with paced data. Columns #2 through #19 con- 
tain the raw data for the nine yaw angle settings of the "A" 
and "B" probe, with the Type A probe data in even numbered 
columns, the Type B probe data in the odd numbers. Table XI 
also shows the hook-up for the data acquisition for the steady 
state data. This is explained in more detail in Appendix H. 
The data acquisition for one set of data including online 
calibrations and steady state data requires some 17 to 20 
minutes . 

6.4. ' Data Peduction 

After the raw data is checked for obvious errors using 
program WAVE (see section 6.3.) the data reduction is carried 
out using a single program "ABRED" , The steps in the pro- 
cedure are listed in Table J-l and Appendix J describes the 
program in detail. 

The program first reads the coefficient files for the 
calibration of the A- and B-probe as well as those for the 
combination probe. The operator is then asked for some input 
concerning the amount of output that is desired. The first 
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calculation is to determine the flow time-average properties 
from the combination probe measurements. The average of the 
readings obtained at the nine different Kulite yaw angle set- 
tings is computed since the yaw angle of the combination probe 
was not changed during the acquisition sequence. The results 
shown in Table XII are values for dimensionless velocity (X) , 
yaw angle, pitch angle, total pressure and static pressure. 

The second calculation uses these values and the ac- 
quired raw data for the online calibration to compute the inter- 
cept values of the "A" and "B" probes. It is at the user's 
discretion to output the steps in this process in order to 
check the calculations performed (see Appendix J) . 

The first reduction of Kulite data performed is for the 
time-averaged values from Kulite probe measurements. A DC 
voltage reading of both probes was recorded for each of the 
nine yaw angle positions the probes were set to. Using the 
results of the previously performed online calibration, ab- 
solute pressure values are calculated. These are placed in 
two arrays, PAA(9) and PAB(9). Arrays YAWA(9) and YAWB(9) 
are filled with the corresponding yaw angle values. Using 
fourth order polynomials a relationship is approximated giving 
pressures of "A"- or "B"-probe as functions of yaw angle. 

From these functions the values P^ max ' p s ' ' P S ant ^ max 

are derived as shown in 4.5. The flow yaw angle was assumed 
to be the one corresponding to P B nax - However, it should be 
mentioned that the flow yaw angle derived from the A-probe 
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as the center value between the yaw angles corresponding to 
P s and P s deviates only slightly (±0.5° to ±1.0°) from the 
one found with the B-probe . 

From these four pressurea, coefficients B, y and 6 are 
calculated. Applying the calibration coefficients to these 
values X — or Mach number — and pitch angle are calculated 
lated. Thus the time average flow vector is determined. 

If it is compared to the one derived from the combination 
probe measurement, the differences turn out to be, typically 
0.64% in Mach number 
0.55° in pitch angle 
0.63° in yaw angle 

The magnitude of these differences is acceptable. Table 
XII shows results of an actual data set from a compressor test 
run. At the very top .values calculated from combination probe 
measurements are displayed followed by the results of the 
online calibrations for both "A" and "B" probe. Immediately 
thereafter the contents of the arrays PAA(9), PAB(9), YAWA(9) 
and YAWB(9) are given showing the average pressure values of 
both Kulite probes and their corresponding yaw angles for the 
overall flow measurement. The values Pg L , p a max ant ^ P Sr ^e- 
rived from those are shown as well as the corresponding yaw 
angles. Next P B max and the yaw angle for this pressure is 
given . 

In the -following line tne actual flow guan titles as 
derived from the "A"-"B" probes are listed. XU, XAX and 
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BETA2 are calculated from X r pitch and yaw angle, the 
circumferential speed and axial speed are printed also. 

These values are: 

XU = Circumferential speed (dimensionless) 

XAX = Axial speed (dimensionless) 

BETA2 = Relative flow angle in the measuring plane. 

Once the overall flow vector is determined from the Kulite 
probes and compared to the results from the combination probe, 
individual measurements are reduced for any or all of the 256 
positions. Whether all, one or any set of positions is re- 
duced is operator-controlled by input parameters. 

The same way the data reduction was carried out for the 
time-average flow vector the raw data for all 256 single posi- 
tions are treated. Arrays PA(9) and PB(9) are filled with nine 
individual pressures of "A" and "B" probe which were derived 
from the raw data applying the results from the online cali- 
bration. The yaw angle settings YAWA(9) and YAWB(9) are the 
same nine values as before. Those are the same throughout 
the whole reduction since they are the ones the probes were 
set to. In Table XII the arrays of P^, Pg, YAWA and YAWB are 
shown. Also given are arrays PAC(9), DPA, PBC(9), DPB. As 
mentioned previously P^ and Pg are approximated as functions 
of yaw angle by fourth order polynomials. In order to check 
the quality of that approximation, using the polynomials, 
values are calculated for the nine given yaw angles (PAC(9) 
and PBC(9)) and the difference between the measured pressure 
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value or Pg and the calculated value PAC or PBC is dis- 
played as DPA or DPB. As long as the values DPA and DPB 
are smaller than ±2 inches of water (all pressures shown 
are in inches of water) , it can be assumed that the approxi- 
mation fits the data points sufficiently well. 

Above the array of measured data are some reduced values. 
Again p s L ' P A max an< ^ are P r; '- nte< ^ with their correspond- 
ing yaw angles. Below the array, Pg and the flow angle 

for this particular position are given. In the last line 
position number, beta, gamma, X — or Mach number — , pitch 
angle and yaw angle for this position are given. 

If a data reduction shall be performed for all 256 posi- 
tions it is advisable to skip the print-out of the raw data 
and all intermediate steps (primary input) . This way there 
will be only the print-out of the last line of Table XII for 
each of the positions. 
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6 . 5 D at a Pre sen t ation and E valuati on 

In chapter 6 . 4 the reduction procedure of the raw data to 
discrete values of X- (or Mach number) , pitch angle and yaw 
angle for all or any of the 256 positions of measurement was 
described. All these flow parameters were stored in a single 
file and can be retrieved at any time. In order to get an idea 
of the flow behavior with respect to the rotor, the flow para- 
meters were plotted as a function of the position within the 
rotor frame. Figure 21(a) shows the distribution of X ; 

Fig. 21(b) gives the yaw angle and Fig. 21(c) the pitch angle 
distribution. The programs used to generate these plots, 
namely PLOTX, PLOTY and PLOTP, are described in Appendix L. 

The general behavior of the measurements was examined. 

For this, the assumption was made that the relative flow angle 
at the rotor trailing edge, 62 > was constant for a given 
radius (see Fig. 22). Figure 23 shows the velocity triangles 
for the flow leaving the rotor. If 3 2 and > the circum- 

ferential velocity, are constant, any change in the Mach number 
of the relative flow will reflect in a change of yaw angle and 
Mach number of the absolute flow. Using the nomenclature in 
Fig. 23, at any given flow condition i the absolute velocity 
is given by 

X 

u 

X = ^ — < (16) 

v^ tan 0 2 • cos a i + sin a i 
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Figure 24 shows x as a function of yaw angle. To be 

v i * 

examined is the yaw angle corresponding to the minimum value 

of X . From Fig. 23 it can be seen that this yaw angle 
v i 

O 

is (90 - B ? ) which is indicated also on Fig. 24. Looking 

at Fig. 21(b) it was found that indeed the minima of x ve g 
correspond to a yaw angle of 39.11°. 

Another characteristic point in Fig. 21(b) is the maximum 
value (48°) of the yaw angle, when ^ ve p was derived from 
equation 16 and from Fig. 24 for that yaw angle, a value of 
.1572 was obtained. This value was found to be consistent 
with the measured Mach number for that particular location. 
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7. DISCUSSION AND CONCLUSIONS 



As pointed out in chapter 6.2 the absolute accuracy of 
the Kulite measurements is governed by the accuracy of the 
combination probe measurements. At higher Mach numbers yet 
to be measured, this may become a problem (see Ref. 1) . 

Reference 7 shows that the pneumatic measurement might be 
incorrect if the fluctuations in pressure increase in ampli- 
tude beyond certain limits. Since the experiments of Ref. 7 
were carried out using a totally different set-up for measure- 
ments of total and static pressures, the results are not 
directly comparable, however, an examination of the possible 
influence of such errors was attempted. 

The assumption was made that PI should be treated like a 
total pressure probe and P2 3 and P4 like static pressure probes. 
It was assumed that an error in the measurements of PI and also 
in P2 3 and P4, or in PI or P2 3 and P4 would occur at the same 
time, giving a total of three possible combinations. 

An error of 10% defined according to Ref. 7 was assumed. 
Such an error resulted in an error of 0.25% in the absolute 
value of the total pressure and 0.5% in the static pressure. 
These errors applied to the data from data file AB1901 resulted 
in none of the three error combinations giving a significant 
change in Mach number and yaw angle distribution. The pitch 
angle showed the only significant dependence on these assumed 
errors. Figure 25 shows the comparison of calculated pitch 
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angle distribution with and without assumed errors. It can be 
seen that the biggest error was found for the case of a correct 
total pressure, but an incorrect static pressure (P2 3 and P4) . 
An average difference of about one degree was found, and the 
distribution did not show any qualitative differences. Since 
the pitch angle could also be measured 0.5° too low (if Pi is 
measured incorrectly but P2 3 and P4 are measured correctly) , 
the achievable accuracy of the pitch angle measurement is 
within a range of -0.5° to +1.0° . 

The basis of the method of application in the compressor 
is that the behavior of the probes as a function of yaw angle 
at each point in the rotor frame is the same as in a steady 
flew at the corresponding Mach number and pitch angle. The 
steady flow characteristic is known from the calibration. In 
order to examine the validity of this assertion, probe measure- 
ments were analysed for selected points of measurement with 
respect to the rotor frame. It was found that the B-probe 
produced the same characteristic Pg vs. yaw angle in its 
application as it did in its calibration. The type A probe 
however showed different results depending on the location of 
measurement. Figure 26 shows the output of the A probe reduced 

to values of C p plotted in comparison with the curve of C_ 

A F A 

as a function of yaw angle established during the calibration. 

It can be seen that for the time average values the agreement 

between test data and the calibration is very acceptable. It 
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is also acceptable for data from near mid passage. However, 

the same is not true for data in Fig. 26 from the rotor wake 

region. Going into the wake and out of it tends to skew the 

top of the function C vs. yaw angle to different sides of 

f A 

the actual flew yaw angle. Near the center of the wake the 
probe characteristic appears to be similar to that established 
in the calibration. Four possible explanations for the 
skewing are considered: 

a) Flow temperature effect on the probe output depending 
on the different probe yaw angle settings. 

b) Probe interference due to "steady" gradient effect. 

c) Probe interference due to "unsteady" gradient effect. 

d) "Incorrect" averaging in a flow in which Mach number 
and flow angles are separately unsteady, and probe output is 
non-linear in M , a and <j> . 

The effect in (a) is not a probable explanation since the 
effect would be present also in positions outside the wake. It 
is also unlikely, because of thermal lag, that the sensor 
material could respond to the high frequencies of the wake 
fluctuations. The effect in (b) could give errors having the 
observed qualitative behavior. 

In Eef. 9 it is shown that when a velocity gradient 
strikes a total pressure probe the apparent location of measure- 
ment tends to shift away from the center of the probe tip. The 
calculations carried out in Ref. 9 were applied to the geometry 
of the probes and flow parameters measured in the blade wakes 
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with the A-B probes. It was found that an apparent displace- 
ment of the order of 3% of the probe outer diameter was indi- 
cated to be possible. This was considered to be negligible. 
However, since the results in Bef. (a) were for impact probes 
at zero yaw angle to the flow direction, an experiment to verify 
the conclusion for the A-B probes yawed in a velocity gradient, 
is certainly desirable. 

The possibility of an unsteady error which results 
from the behavior of the probe itself must be considered. 
However, it is noted that the error is only significant where 
the flow is unsteady in the rotor frame. This explanation 
would have to be accepted if all other explanations failed, 
and could be verified by independent non-in trusive measurements 
such as LDV. However, since the error appears only in the 
unsteady wake the most probable cause is thought to be (d) . 

The existence of unsteadiness of flow parameters in 
the wake region is clearly evident from oscilloscope observa- 
tions. The observed fluctuations are oscillations in the probe 
output voltage (pressure) readings, which — in the data acquisi- 
tion process—are ensemble-averaged over 40 samples to repre- 
sent one value of press ure for a single measurement. 

From the average pressure values, pressure differences and 
ratios are derived and reduced to obtain a velocity vector cal- 
culated in this way is the same as the average flow velocity 
vector. The question clearly, is whether the flow velocity, 
vector calculated in this way is the same as the average flow 
velocity vector which could be obtained if the actual velocity 



47 



vector was known for the individual samples. Clearly, the probe 
output depends quite differently on variations in pitch, yaw 
and Mach number, and the fluctuations involve changes in all 
three. 

A first attempt was made to examine the problem of averaging 
Using calibration data, an array of three Mach numbers, three 
pitch angles and three yaw angles was selected. This resulted 
in a total of 27 possible flow vectors, for which the functions 
P* = P (a) and P D = P D (a ) were known. Since the flow yaw 
angle during a calibration is always zero, an "artificial" yaw 
angle was superimposed on the calibration data. For yaw angles 
different from zero, corresponding pressure values for the A and 
B probes were shifted by the amount of the superimposed yaw angle 
but in the opposite direction. 

In a first step the 2 7 flow vectors were averaged by 
averaging • their velocity components U, V, W and calculating the 
corresponding single values for pitch angle, yaw angle and Mach 
number. Secondly, for each of the 2 7 vectors, data sets PA (9) 
and PB(9) (corresponding to nine different probe yaw angles) 
were built. These values were averaged to result in nine single 
values for PA, PB and corresponding yaw angles. The regular data 
reduction procedure was then applied and pitch angle, yaw angle 
and Mach number were calculated. 

Differences between the two calculation methods were 
defined as: 
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af 



X 



£ 



X 



X 



. 100 



af 



e , = <J> ^ - <j) 

<j> T af Y ap 




subscript "af" meaning average from flow vectors and " ap" meaning 
average from pressure values. 

The procedure was carried out for four different sets of 
data, each consisting of 27 different flow conditions. 

Table XIV lists the range within which each of the flow 
parameters was varied and the differences resulting from the 
calculations. The differences obtained were not large, however 
it must be noted that the process of averaging which has been 
tested does not exactly simulate the one to which the A-B probes 
are subjected in the compressor. Further analysis is required 
to properly evaluate the effect of averaging on the probe data. 

In order to explain the skewing observed in the A-probe output 
in the wake regions, it would only be necessary to have fluctua- 
tions which were not symmetric with respect to the wake center- 
line, as is very likely to be the case in the wake of a highly 
loaded compressor blade. 

In conclusion, the DPDS technique has been developed 
further to successfully measure three components of velocity in 
regions outside the unsteady rotor wake. The edges of the wake 
region and average conditions on the wake centerline are well 
defined. A limitation to the use of the present method within 
the wake region is thought to be due to the necessity for ensemble 
averaging. Further work is planned to resolve this question. 
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Table VII. Errors in Mach Number, Pitch and Yaw Angle for the Application of 
Calibration Procedure to Calibration Raw Data. 
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Table VIII. Errors in Mach Number, Pitch and Yaw Angle for A-B Probe Application 
Test in Free jet. 
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Table IX. CpOB for All Calibration Configurations of Mach Number and Pitch A: 
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n 0 0 0 6S 

fj !) 0 7 9 9 
, , 1) ii II 11 0 


, f! i'i ij j ( '| 
,0 11 *.t 7.-i 
, (i ij 1 f ,'j. 7 


4 


. 00 090’ 
, n n i j 9 o ■» 

, o o o ■;> 1. 1 


. 0 ij .7 1 n 9 
, ij 0 3 1 ■■•a 
, Ij 1) 3 ! "l p/ % 


. 0 0 l« 77 i 

, ij f : 3 ’ p 

, 0 0?1. 5.2 1 S 


:j « i 0 0 S 6 
11 n 0 O I! 7 
. 0 0 U !) 0 


, !' !j 0 '! ' | *• 
f, 0 

. 0 1.'! j ^79 






On j me 


c n ! i,nrnt j p n 


< F 1 \ • i 


r : J 9 r i 1 ! ■ : 


P o .i. n t 


1 a ru ; > r , c o a n . 
t I ni'K> r , A n r , 
IfiMer , B pr , 


y n w r o a b 
9 nr , 
yaw 8 pr , 


0 > 

hc.fr 

DCB 


p •:vp 
I- r 

D M 


p 

T *• 
[) T V 


1 


. 0 0 0 9 o i 

0 0 ii 9 0 P 
0 0 1) 9 1 i 


. 0 03077. 

, n n 3 n p i 
, 0 03098 


. 0 0 0333 
, h .0 3 7 0 ■') »■> 

Ij •! 0 n p; .4 r; 


0 * 1 0 n n 

0 ii i'i fi n f) 
. •* n ') i 1 ij 


, 0 •'! ! ! 'j '!• »'! 
. f : ij i'. ! V 7 

n (! ' ! •■> •' •' 



00090 i 
n n o & o p 
, 0 0 0 9 1. S 

00090? 

0 0 0 9 '■« .7 
0 0 1 1 9 i 3 

000903 
0 0 H c ' IJ 9 
0 1 .1 0 9 1 0 



0 0 3 1 1 £ 
0 0 3 0 9 1 
, oo;5 0°8 

f) 0 3 0 93 
, 0 0 3 0,94 
0 1 3 3 1 0 3 

0 0 3 1 0 * 
0 0.3 0 8? 
003099 



, i 'i 0 

. I"! 0 

o n 

0 i 'i 

o ‘i 
0 !. ! 

f! U 
Of! 
0 0 



0 3 ? 9 

4 tpA 



f; V a 

47 0 9 

0 7 ? 9 
n p •'! 9 
j 673 






3 



1 3? 



A 



g? 



o a e 



1st cal ihra t j o n 
2nd cal ibro f i on 



i. -op e 
, 099068 
. 0 0 233 



I n t »- v r c a a 

, o 0 0 3 

, 0 0 ij 3 



j/ 
*< 

70 3 
.T 

79 t 



<} 0 0 o 3 • 
0 [ i <1 c; a p 
■ . !l Q ij ! ' ij 

0 0 0 f) hP. 
! i i"‘ ! * p ^ 7 
, 0 0 0 0 0 

o no os? 

n 0 '1,77.7 

; , o o o o o 



si 

- , 0 96 

- , 097 



. 0 o 0 f! * :} 

i'i ij *\ r v |*1 

f.i ;; :i ib '• 

1 0 i'i 0 •’ “ 

f'l i’i I ! ;> • 

0 0 !.i 7 > 

0 p 0 i i ~ 
Hi'? • ' ' • 9 
0 0 r i 6 7 8 



P nr 
o n i“ 



.".1 r > 



T n t 
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P n I n t 



1. 

A v >> r n g c d 



A va rag ad 



“5 

A v a r a rj a d 



4 



A v a r a cj a d 



A v a r a g a d 



Avar a g a cl 



*7 

/ 

A varan eel 

r . 

O 

A v prqn a d 
9 

A v a r a n a d 



1 


r; r \ (. r . r 0 Mh , 


y ni.i r o nd , 


'!• *1 


i r . A n r , 


y a ui A n r . 




n p , pr , 


y f i w U nr , 




, n 0 n <? n i 


, ft 0 3 ft ft 7 




, fl i) fi V ii 3. 


• - , I I ft ft f! fl A - 




, n o n 9 i 


- , *n 07937 


V r\ j. u 


r*r* pnrc'i o 


utput ; A nr oba : 




, 0 il n 9 (1 ? 


, n n 7 n a, ft 




, 1.1 0 '! 9ft? 


- , ft fl A 1 ft ft ft 




, n n ft ? s * 


- , ft ft 1 ~*79 


v n l u 


a s p c c a r: n ij [ p u -f : a o r o b a : 




, 0 0 o 9 o 1. 


. ft 0 ? 1 i 0 




, nonvfia 


- , ft if ft fi 3 7 




.non ?i ? 


ft , 0 ft ft ft i ft 


v n *1. u 


a 9 p C\ r a r| o U t p 'J T ! A n r n |;j t> : 




, ft ft ft 9 ft i 


. 0 0 3 0 S 0 




, n n n v ft ? 


, II 1,1 1 A n 1. 



, a o o g < 3 , o 0 1 7 0 2 



v a l 1 1 a % 


p a r a b o u t p u t 


! A p r o b a ; 




, ft ft ft 9 ft ft 


, ft ft 3 ft P ft 




, ft ft ft ° ft ? 


, fi ft? 9? ft 




. Oft 09 C? 


. 0 02979 


v a .1 M i > s 


p a r. 9. rl o u T put 


: A n r n b o ; 




, 0 ft ft ° ft ft 


, ft 113 093 




, fl fl ft 9ft 1 


, fj fl A a A 6 




, ft ii 0 9 - \ 


0 0 a 9 ii 9 


v a l i.j o p 


pacce o »> t p u t 


! Apr o b a : 




, a u 0999 


, ij 03 O'? ft 




, fl fi ft 9 fi 1 


, ij i ! A A c>9 




,0 lift 9 09 


, ft ft/-. 3 33 


v a A u a ■"> 


p a r p n o u v p u t 


: A jrnpp. • 




, ft ft ft 9 0 3 


, ft 0 3 0 ?3 




, l) ft !j ° ft 


, 1)09/179 




, 0 0 0 9 3 2 


0 099? ft 


v n ]. i; a 


p n r i- rj o i t t p u t 


i Apr o b i- : 




, ft f) ft 9 ft ft 


ft fj ft. ft 7 /l 




.0 nil 9 fit 


, fii f)9ft? 




, fi fi ft 9 ■) ft 


fn, 1 ft?? 


v a 1 u a b 


p a r «:> d o u t p u t 


: A p r o b a ; 



i.M 


O '!# " 
• 


1 1 


v v;a 


P r 


I !• 


(Mil? 


• P '■> M 


r, I .. 



, non 37? 


, ft n fi o a a 


, ft ft ft ri -7 


, ft.o 1 ?31 


, fi ii fi d 0 


, non 


. ft frft > 7 ? 


' > ? A, , lift ft ft ft 


, 0 ‘1 " > > 


- . 


ft? n r s r, r : v ; 


- . 3? 7 .-■>:> 


a o ft .77? 


, ft ft «*i n a 


, 0 fi ft H 1 "< 


. 0 i ! T ft 9 ? 


, ft fi ft fi ft? 


. fl ft f! V*'* (i 


. ft ft ft ft ? ft ^ 


■***?• 7 , ft ft fi ll ft 


, ft r * ft A. * 


, 1.3? A ft 


)V \\ r o n a i 


- . ii US? 3 


0 0 ft 37 A 


. ft 0 0 0 63 


. 0 0 ft '1 8' ft 


ft ft 3? ft ft 


, is ft fi f; fi 7 


.MO o 73 ft 


rtfd ??3 i 


7? 7 0 ft 0 ii il 


ft ft ft ' 


. 33 ; 33 


H r i r n n ?•? j 


. l334| 


OOfVftA.Q 


. fi ft ft 0 87 


. ft ft O f, i ft 3 


ft ft 379 * 


fi M fj ft fj 


. ft fi f i 7 4 <- j 


ft 0 j 9 a 1 i 


7? 7 . ft 0 ft 0 0 


. ft n » ) .’ -i 9 i 


, 3793 ft 


! •: o r o D «? : 


, X ??A,y 


ft ft ft ,X7 A 


, ft 0 r ' ft A 3 


, fl 0 I! Ii ^ 


0 0373ft 


, u !> fi i: ii 3 


, !« (J if 688 


0 0 2 0 6? l 


8? 7 . i ft 0 0 ft 


, ft 0 0 .* •. 7 P, 


. 3838 


T-\ r Ij \ 


, 21.9^4 


fi ft ft 3 7 A 


, l l 0 ft fl 7 * 


, ft fi ft ft 1 v 


ft fl 337 0 


0 0 ii f: ij ;*? 


, il fl il A 9 7 


ft m 9 ft A 1 


8?9 . 0 0 0 0 ij 


, ft 0 O A 69 


, 373 A. 2 


M n , v ' n p ; 


, 1.99*2 


ft ft ft 37*3 


ft C| ft ft 6 A 


, ft ft i) fi fi •* 


0 0 383 7 


ft , fl !! il ft il 0 


, fi fl f! a9 0 


ft vl * ? ft A * 1 


7?? . 0 000 0 


, n ft o b 7 1 


. 0 1 1 r 7 


H r - r o a • 


. 1. i86 0 


ftftft'371 • 


n ft f, r, *7 3 


. ft 0 ft fi .1 ft 


ft II *; t A, 9 


, r ! ft 0 f! f* 


. ft fl i ir Pr 


0 ft 0 7 2 9 1 ' 


:>?? , on on ii 


. 0 ft 0 687 


, 1 . •: 0 7 ' 7 


H n r o b I 


- i! 86?4 


ft fl 0 378 


. o ft n 06? 


, ft fift il 09 


0 ft ">386 


j , ff f ! if \) ll ft 


. 0 0 i) A 9 8 


fi ft a ft ? - 1 


8? A. . ft fi 0 *i 0 


, ft ii ft 6 8 n 


2271 8 


!•? o r o d a : 


_ / 7 _- ■ ( 
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DATA ARRANGEMENT 
DATA ( 22 , 256 ) 



TH DATA FILE FOR RAN DATA FROM KU 11 TE SURVEY 



CALIBRATION t 



POINT t 



1 st YAW A 1 st YAW R 2 nd YAW A 2 nd YAWS 



9 th YAW A 3 th YAW B I STEADY STATE 



PATAU, i) 
OATAd, 2 ) 
DATAU, 3 ) 



DATAU, 18 ) 

DATAU, 21 ) 
DATAU, 22 ) 



DATAU, 38 ) 

DATAU, 41 ) 
DATAU, 42 ) 



DATAU, 58 ) 

DATAU, SI) 
DATAU, 62 ) 



DATAU, 73 ) 

DATAU, 31 ) 
DATAU, 82 ) 



DATAU, 93 ) 

DATAU, 101 ) 
DATAU, 103 ) 



DATAU, 113 ) 

DATAU, 121 ) 
DATAU, 122 ) 



DATAU, 138 ) 

DATAU, 141 ) 
DATA! 1 , 142 ) 



{ 
t 

syi 

i 

s 

X 



DATAU, 1 S 3 ) 

DATAU, ISO) 
DATAU, 161 ) 

DATAU, 170 ) 
DATAU, 171 ) 

DATAU, 130 ) 
DATAU, ISt) 

DATAU, 190 ) 
DATAU, 191 ) 



PAT AO, 1 ) DATAU, i) DATA( 4 , 1 ) DATAU, 1 ) 

DATAU, 2 ) DATAU, 2 ) DATAU , 2 ), DATAU. 2 ) 

DATAU, 3 ) DATAU, 3 ) DATAU , 3 ),DATA(S; 3 ) 

u M ■ § 9 m* 



DATAU?, 1 ) DATAU'?, D 
DATAU£ 2 ) DATAU*, .') 
DATAU', 3 ) DATAU* 3 ) 



7- 

y 



>!, **/>/, s/ t r&' 

for 






DAT A ( i 


, J ) 




TAP IT 2 ' 


~ 


A CUN Y 


4 , 


i - 


1.0 ) 


DATA ( 1 . 


,J + 1 ) 


= 


PCAI ..2 


:~ 


AC UN Y 


4 i 


2 , 


1.0 ) 


DATA ( 1 


,J+ 2 ) 


tv 


Pi 


— 


A CUN Y 


4 , 


1 ^ > 


10 ) 


DATA ( . 1 . 


, J+ 3 ) 


.TV 


P 23 




A CON Y 


4 , 


\ > 


1 . 0 ) 


DATAY 1 


, ,T t- A) 


:v: 


P 4 


- 


A CUN Y 


4 . 




1. 0 ) 


DA f m Y 1 


, J + 3 ) 


— 


hTN 




SC i-i NK 


b , 


1 / > 




DATAY i 


,.T + A ) 




p j ; ?nRi i 


— 


SCANTY ( 


B , 


25 


i ) 


DATA Y i 


,J + 7 ) 


=v 


x m; 


w 


SC A NR Y 


b; 


7 3 ) ^ 

-/l" > 


i ) 


DATAY i 


;.T+ 8 ) 


vv 


YAWC 


zz 


SCANTY Y 


B > 
■ .* 




i ) 


. DATA ' i 


J 9 ) 


=: 


X T n A 


•- 


SCANTY Y 


T ; -t 


1 ) 


DATAY 1 


,Jn o ) 


::u 


Y hW(i 


.= 


bCANlY Y 


> 


r; - 1 - ^ 


i : 


DATA Y 1 


, J + i i ) 


a= 


X I H V 


TV 


SCANTY Y 


O 


■16 \ 


1 ) 


DATAY i 


,,TU 2 ) 


v= 


r A 61 A 


w 


SCAMP Y 


O 

Kf ) 


• ? r 7 
•-* 1 > 

• > / ^ 


i ) 


DATAY l 


, J + :l 3 ) 


rj: 


pri.::- 


vr 


SCAUR Y 


i’.> 


i ) 


DA 1 A ( X 


. T + 1 A ') 




.£ .... 


v- 


JZC$UH ( - i 


r* 


1 *7 


i > . . 


, J T + i 3 )‘ ' 




OP' 




SCAUR Y l 


t'*’ 
... ; 


2. (”i 

L / ; 


1 ) 


DATAY i 


, J + 16 ) 


=- 


DC A 


— 


SCANTY Y i 


r; 

> 


C) 

Nf- ) 


i ) 


DATA Y i 


, J + 1 . 7 ) 


= 


D C ft 


r” ' 


SCANTY Y 1 


C 

i 


Sv'/ X 


1 ) . 


■ 


a 


a 




a 




a 




a 


■ 


a 


a 




a 




a 




a 



tSl opc A 1st 
ilnrar.A 1st 

tSh&s B i st 
xlviUr.i 1st 

iSlopc A 2nd 
timer. A 2nd 

tSlope B 2nd 
ilater . B 2nd 



a 

a 

a 


a 

a 

a 


a X - // cY. ■ Hi l 


a 

\ 


/ 


a 

X 

■ 


a 


'DATAY 20 


,1 ) = ACRN 1 


4 , i , 


\ n 7 


T ARE 2 y 


a 


DA I A Y 2 m 


.]> 1 ; = ACi ;iN ( 


4 , 2 , 


1 0 ) 


PCrtLii 




DATA (20 


2 ) = ACi-iN ( 


4 , 6 , 


1 0 ') 


P i 


a 


DATAY 20 


J -f 3 ) « A DSN ( 


4 , 7 ; 


x n j 


P 23 


* 


DATA <20 


;t + 4 ) - Arc A ( 


4 , n . 


i. n ) 


P 4. 


a 


""DATA ( 2 0 


, T T) > -■ ScAcK Y 


H ; i. / ; 




j-’ M 


a 


DATA (20 


;i+ 6 ) = SC A MY ( 




1 ) 


P CARO 


a 


DATA <20 


, T ■> ?') ~ SC A NR ( 


) '■> > 


1 . ) 


X rru ; - 


a 


DATA (-2 0 


' 1 + B ) = SC A NR ( 


9 . 33 , 


i ) 


YAWC 




DATA < ? 0 


^ 1 ± .*?J = BCAMYY 




r ) 


— x ’!: n A 


a 


DATAY 20 


, . 1 . 1 . U ) ~ sCanrY 




i ) 


1 AM A 


a 


DATA <20 


,1 + 115 - SCANTY ( 


B, 3 s, 


. 1 . ) 


X T T j B 


a 


DATA (20 


.1 + 12 ) SCANTY ( 


8 , 37 , 


i) 


YAMB 


a 


DATA <20 


. T + 13 ) = SCAUR ( 


B \ 3 9 , 


1 ) 


p ),< p 


a 


DATA (20 


' T-M -n - SCAUR ( 1 


\ 


1 } 


p 


a 


DATA <20 


' L + .!.;>) = SCAUR Yl. 


S ,1 7 


IT 


nil 




DATA (20 


, T. + 1 s ) = SCAUR (1 


S , b ? , 


1 ) 


OCA 


a 


DATA <20 


,1 + 17 ) = SCAUR O. 


sC:C 


1 . ) 


dC 3 


a 


DATA (20 


, 1 + 1 . B ) = ADR GA 








DATA (20 


, I + 19 ) •- ADR CB 








a 


1 


a a 


a 




a 


a 


a 


a a 


a 




a 


a 


• 


a ■ 


a 




a 


a 


• 


a ■ 


a 




a 


a 


a 


a ■ 


a 




a 


a 


a 


a « 


• 




a 


a 


a 


a a 


a 




a 


a 


a 


a ■ 


a 




a * 



t L/ATA(^.r, ' ^ 
s DATA <:'£?; ^ 

t DATA(<^> .0 

t 

t 

t 

t DATA i 2 fi } 2 c\ 

t DATA( 2 r, 21 ) 

X DATA (U, 88) 

t 

* 

* DATA <Zc, j>(4 < 

t DATA (2c, It) 
l DATA <z £>, U) 

J 

t 

1 * 

t MIMIC, CO. J 

1 DAT A Ur, 61) 
t DATA(2r, 68) 



1st 



2nd 



1 uT d 



t 
t 
X 

t DATA i2o\ ft)) 

X DATA( 2 ^ S 1 )‘ 

I OATA^rr. :£) 

X 4 ‘ 

* * 

i * 

t DATA l20*iCC\ 

1 DATA<2a1U^ 
t DATA <20,1U8) 

t 

t 

1 DATA 

1 BATAUtfUlP 
i DATA ( 2 -v-lU.U 

t 

I 

X 



Hth 



5th 



■6 th 



?th 



t DATA( 2 c,l^fO 

X 

J OtTHii, I ‘ill 

i 

$ If 



r#‘ 



| 0 * 

♦ 0A/Dt< /* /> 

t /it) 



>\ 






DATA( 2 , 2 S 6 ) DATA( 3 , 2 S 6 ) DATAU, 256 ) DATA(S, 2 S 6 ) — DATAU/, 256 ) DATA( 13 , 256 ) t 

. Arrangement of Data Within Raw Data File. 
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Table XI 



\v ^ v ^ w ^ vjv ^ ^ ^ ^ ^ vu ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^v ^ ^ n^ ^ ^y ^ ^ ^v % ^ v^ v xr vv \V ^ ^ ^ ^v y ^ 

ip /p ^ p ^ /p p p ^ /f p ^ p p p p p p 'r * ^ ^ p /f /p /p ^fv /ft i^ip^ /p /p p /p p p ip /p ip p /fs /f* 

RAW DATA FILE •. AB1901:-. 27 

V vW viz \1/ >1/ >1/ si/ >y si/U/ ^i/sV sV 'V s^ vL Ui s^ a> \L \t/ sV ' U ^ >L 'V U/ 'V ^ ^ \V ^V sV \J/ sb ^ si/ vL \i/ si/ si/ U/ ^ si/ ^ si/ vi/ si/ si/ si/ vl/ 
P^p^P^P^^^^^^^/fipifpip^ip/p/P^/pifiPppif/p^^iPip^^^ip^iP^/Pp/Pip/pip/PiP/|(;P/P 



FLOW AVARAGED VALUES AS ESTABLISHED WITH THE COMBINATION PROBE 



P t o tal ( INCH H20 ) PstaticdNCH H20) Xvel Mach 

438 . 8521 1 0 402.299380 .15693 . 3S443 



P h i ( *1 e q ) 
4 , 55 



Yaw( dea ) 
30 . 76 



EQUATION FOR A-PROBE PRESSURE s 

PA = 400.532230 + 9966.041000 * VOLTAGE ( raw >* 0 

CP 0A = 1.00408 CP 0B » .6394757 

EQUATION FOR B-PROBE PRESSURE ; 

PB = 405.349850 + 9709.025400 * VOLTAGE ( raw ) *0 , 0 1 



01 + PREF ( INCH H20 ) 
+ PREF (INCH H20 ) 



* PAA ( ♦ ) PAB < * ) YAWA(*) YAWB<*) 



1 388.564 384.562 

2 415.562 405,356 

3 432.724 417.524 

4 438,413 424.489 

5 438.205 425.738 

6 436.311 424.055 

7 429.005 417.040 

8 412.283 400.314 

9 376.753 370 . 378 
A-PROBE APPROX 



-40 . 060 
-20 . 040 
- .37000 
14.7100 
7000 
6600 
9900 
7900 
570 



29 , 
44 
64 , 
84 
109 , 



-39.850 
-19 . 750 
0.00000 
IS . 0200 
7900 
0900 



29 , 
45. 
65 . 
85 . 
110 



330 0 
240 0 
?80 



IMATION RESULTS : YAW 
PRESSURE (INCH H20) 
CPAMAX 



-32 . 03 
401 . 494630 
0036 



438 



30 ,97 
987430 



9 

401. . 49 



B-PRQBE APPROXIMATION RESULTS : YAW0 = 31.1 PRESSURE (INCH H20) =426.03 



AVERAGE VALUE RESULTS FROM THE A-B SYSTEM i 



BETA 
. 08541 



GAMMA 

,34569 



Xve 1 
15693 



Pitch 

4,00 



Y aw 
31 . 13 



XU 

2425.1 



XAX 
. 13400 



BETA2 
50 . 33 



A-PROBE APPROXIMATION RESULTS : YAW = 

PRESSURE (INCH H20) = 
CPAMAX = 



1 

1 

2 

3 

4 

5 

6 

7 

8 
9 



YAWA(I) 
-40 , 060 
-20 . 040 
-.37000 
14.7100 
29,7000 
44.6600 
64.9900 
84,7900 
109.570 



PA( I ) 
390 . 745 



418. 
434 , 
438, 
438 
436, 
428 
409 , 
372 



046 

472 

073 

365 

436 

007 

352 

605 



P AC ( I > 
390 . 620 



413 

433 

438 

439 
436 
427 
409 
372 



693 
,312 
3 07 
, 171 
487 
, 055 
953 
,503 



-33,87 
401 , 035520 
1 . 0093 



DP A 
. 12415 
64673 
. 16040 
,23431 
. 80S60 
, 05164 
. 95190 
,60059 
.10175 



YAWB(I) 
-39.850 
-19 . 750 
0.00000 
15.0200 
7900 
090 0 
330 0 
2400 
.280 



29 

45. 

65. 

85, 

110 



439 



29. i'3 
204830 



401 



P B ( I ) 
386 . 023 



407 
419, 
425 , 
427 
425, 
4.16, 
397 , 
367, 



238 
654 
849 
988 
0 91 
069 
940 
713 



PBC(I) 

386.211 



$ 

0? 



406 
420 , 
426 , 
427, 
425. 
415, 
398. 
367, 



601 

214 

014 

737 

287 

419 

495 

588 



B-PROBE APPROXIMATION RESULTS i YAWO = 28.8 PRESSURE (INCH H20) =427.75 



PSTATIC (DERIVED FROM PAMAX AND XVEL) = 402.086 



POS* 


Beta Ganna Xvel 


Pitch 


Yaw 


BETA2 


1 


. 08691 * 130 020 ' '. 15784 


2 . 16 


23.77 


50.31 




Table XII. Explicit Output 


of Reduced Data 


(run #119) . 
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Raw Data From File AB1901:27 



POS* 


Beta 


Ganna 


Xy e 1 


Pitch 


Yaw 


BET A 2 


i 


. 08691 


.30020 


. 15784 


2.16 


23.77 


50,31 


2 


. 08625 


. 29869 


. 15719 


2.07 


28.85 


50.47 


3 


. 08659 


.29771 


. 15751 


2.04 


23,77 


50 .39 


4 


. 08693 


.29870 


. 15785 


2.10 


28,67 


50 , 32 


5 


. 08626 


.29383 


. 15714 


1 .86 


23 . 34 


50.54 


6 


. 08556 


. 29333 


. 15646 


1 . 81 


27.89 


50 . 78 


7 


. 08761 


.29336 


. 15845 


1 .89 


27.95 


50.27 


8 


. 08695 


. 29314 


. 15780 


1. . 36 


27.77 


50 . 46 


9 


. 08699 


,30001 


. 15792 


2.16 


27.87 


50 , 42 


10 


. 08651 


. 29053 


. 15735 


.1 . 72 


28. 18 


5 0 . S 1 


ii 


. 08616 


. 30175 


. 15714 


2.20 


27.01 


50.75 


12 


. 08771 


.30535 


. 15867 


2 . 41 


27,27 


50 . 32 


13 


. 08736 


. 31543 


. 15344 


2.83 


27 . 40 


50 . 33 


14 


. 08758 


.31300 


. 1.5863 


2 . 74 


27 , 95 


50 , 24 


15 


. 08843 


.31647 


. 15949 


2.91 


27 . 52 


5 0.10 


16 


. 08708 


.32767 


. 15832 


3.33 


27.13 


50 . 47 


17 


. 08815 


.33026 


. 15937 


3 . 48 


27 . 70 


50 . 12 


18 


. 08751 


. 33647 


. 15883 


3 . 71 


27.75 


50 . 26 


19 


. 08845 


. 34354 


. 15981 


4 . 03 


27 , 49 


50 . 07 


20 


. 08694 


. 35324 


. 15855 


4 . 57 


27.79 


50 . 37 


21 


. 08777 


. 35549 


. 15931 


4 , 49 


28 , 23 


50 . 11 




. 08727 


. 35913 


. 15888 


4.61 


27.57 


50 . 32 


23 


, 08724 


. 36273 


. 15890 


4.76 


28. 06 


50 . 25 


24 


. 08730 


.36500 


. 15893 


4 . 85 


28 . 28 


50 . 20 


25 


. 08809 


. 35980 


. 15967 


4 . 67 


28 . 19 


50 . 03 


26 


. 08817 


.35931 


. 15973 


4 . 65 


27,69 


50 . 0? 


27 


. 08765 


. 36770 


. 15935 


4.97 


23 , 86 


50 . 03 


28 


. 08754 


. 37437 


. 15933 


5.22 


28.31 


50.1 3 


29 


. 08721 


.35432 


. 15876 


4 . 42 


28.80 


50.16 


30 


. 08759 


. 36250 


. 15923 


4 . 76 


29 . .1 1 


50 . 02 


31 


. 08590 


. 34610 


. 15741 


4 . 04 


29 , 45 


5 0.41 


32 


. 08591 


. 33789 


. .15732 


3.71 


29,74 


50 , 38 


33 


. 08682 


.34274 


. 15325 


3.94 


23.54 


5 0 . 30 


34 


. 08629 


. 33269 


. 15762 


3 . 51 


28 . 85 


50 . 40 


35 


, 03633 


.33968 


. 15774 


3,80 


23 . 47 


50 . 44 


36 


. 08652 


. 33720 


, 15789 


3.70 


29. 09 


50 ,31 


37 


. 08466 


. 32843 


. 15600 


3.27 


23 . 94 


50.81 


38 


. 08430 


. 32945 


. 15566 


3 . 29 


28 . 62 


SO . 94 


39 


. 03466 


.31729 


. 15586 


2 , 80 


28.75 


5 0 . 85 


40 


. 08445 


. 31319 


. 15561 


2 . 62 


29.15 


50.86 


41 


, 03548 


. 31905 


. 15668 


2 . 91 


23 . 62 


5 0 . 66 


42 


. 08583 


.32284 


. 15706 


3. 08 


27.88 


50 . 67 


43 


. 03569 


. 31942 


. 15688 


2.93 


23.83 


50.58 


44 


. 08616 


.31527 


, 15729 


2.78 


28.39 


50 . 53 


45 


. 08673 


.32951 


. 15301 


3.39 


2.9 .01 


5 0.28 


46 


. 08768 


.32712 


. 15888 


3.33 


28.90 


50 . 06 


47 


. 08778 


.32402 


, 15894 


3 . 21 


28.34 


50 . 12 


48 


. 08757 


. 32691 


. 15878 


3.32 


29.0 8 


50 . 07 


49 


, 08392 


.31918 


. 15998 


3.04 


23 . 51 


49.82 


50 


. 08780 


. 32379 


. 15897 


3.20 


28 . 24 


50 . 13 


51 


. 08746 


. 32749 


. 15868 


3.34 


28 . 18 


50.22 


52 


. 08814 


.31063 


. 15914 


2.65 


28.43 


50 . 04 



Table XIII. Reduced Data For the First Blade Passage of Run #119. 
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Type A Type 3 




Figure 1. Probe Arrangement in Transonic Compressor 
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Figure 




Controlled (Paced) Sampling Technique 
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-83. —60. “43. -23. 3. 23. 43. S3. 80. 



Figure 3a. A-Probe Pressure (Gauge) vs. Yaw Angle YAW ANGLE [Degrees] 

Solid line - Calibration Data 

Dotted line - Data Approximated from Specific Data Points 
(4th Order Polynomials) Shown as crosses 
(Datafile: A5KP10) 
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Figure 3b. B-Probe Pressure (Gauge) vs. Yaw Angle YAW ANGLE [Degree 

Solid line - Calibration Data 

Dotted line - Data Approximated from Specific Data Points 
(4th Order Polynomials) Shown as crosses 
(Datafile: B5KP10) 
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Figure 4. High Response Transducer Probes 
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Figure 6a. Calibration Facility Geometry (not to scale) 




(a) End View 




(b) Side View 



Figure 6b. Free-Jet Calibration Apparatus 
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Figure 6c. Data Acquisition System 
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- 80 . - 60 . - 40 . - 20 . 0 . 20 - 40 . 60 . 80 . 

YAW ANGLE [Degrees] 

Figure 7. Pressure Readings vs. Yaw Angle. Data Acquired 
Using Two Different Programs: 

Solid lines - Program KALIB (Continuous Acquisil 
Crosses - Program &YAW (Discrete Readings) 
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[ inches 



A 

FI 20 



Gauge ] 




-83. -63. -40. -23. 3. 23. 43. S3. 83. 

YAW ANGLE [Degrees] 

Figure 10. Type B-Probe Calibration Data at Mach = 0.4. 

Pitch angles in the Range from -15° (Top) to 
+25° in 5° Increments. Some Holes in probe 
tip are contaminated by dirt. 



77 




Figure 11a. 



Probe Tip with Dirt in Some Holes 




Figure lib. 



Probe Tip with Dirt in Some Holes 
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[inches H20 Gauge] 




- 80 . - 60 . - 40 . - 20 . 0 . 20 . 40 . 60 . 80 . 

YAW ANGLE [Degrees] 

Figure 12. Type B-Probe Calibration Data at Mach = 0.4. 

Pitch angles in the Range from -15° (Top) to 
+25° in 5° Increments. Clean Probe Tip. 
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[inches H20 Gauge] 




- 80 .- 60 .- 40 .- 20 . 0 . 20 . 40 . 60 . 80 . 

YAW ANGLE [Degrees] 

Figure 13. Type A-Probe Output Demonstrating 
Characteristic Values. 

(Mach =■ 0.6, Pitch angle = 25°) 
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(inches H20 Gauge] 




- 80 .- 60 .- 40 .- 20 . 0 . 20 . 40 . 60 . 80 . 

YAW ANGLE [Degrees] 

Figure 14. Type B-Probe Calibration Data 

(Mach = 0.6, Pitch angle = 25°) 
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Beta 



Figure 15a. Approximation of Dimensionless Velocity, X, as 
Function of Coefficients 6 and y. 
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15.00 - 1.67 11.67 25.00 




00 



Figure 15b. Approximation of Pitch angle <£ as 
Function of Coefficients B and y. 



83 



Error in Yaw Angle Error in Pitch Angle Error in Mach Number 

[Degrees] [Degrees] [%] 
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Figure 16. Errors as Specified Depending on Mach Number 
and Pitch Angle. 
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Figure 17. Combination Pressure Temperature Probe 
(Tip Detail) 
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Figure 18. Pressure Coefficient for Type A-Probe at Zero Yaw 
Angle as Function of Mach Number and Pitch Angle. 
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Figure 19. Pressure Coefficient for Type B-Probe for Zero Yaw 
Angle as Function of Mach Number and Pitch Angle. 
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File: AB19A1 
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File: AB19A1 
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Figure 20b. Paced Data From Type A Probe. Probe Yaw Angle Settings as Indicated. 



B-probe raw data 
File: AB19B1 
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Figure 20d. Paced Data from Type B-Probe 

Probe Yaw Angle Settings as Indicated. 
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Figure 21. Measurement Results at 50% Speed, Midspan, Peak Efficienc 
(File AB19R1) . 
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Figure 22. Relative Velocity Distribution W 2 at Rotor 

Trailing Edge (Schematic) 
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Figure 23. Velocity Triangles for Varying Values of the 
Relative Velocity . 
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Figure 24. Dependence of Absolute (Xv) and Relative (Xw) Velocities 
on Yaw Angle (a) Assuming Constant Values of Circum- 
ferrential velocity (Xu=0. 24 219) and Relative Flow- 
Angle (S 2 =50.89°) • 
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Figure 26. Pressure Coefficient Versus Yaw Angle for 

Type A Probe at Specific Positions in Rotor 
Flow Field (Run 123 - solid line is from 
calibration at M = 0,4 , <J> = 0°). 
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APPENDIX A 



CHANGES MADE TO SOFTWARE. FROM (Ref. 4) 

The changes made by McCarville and reported in Ref. 4 
brought about two general improvements: hardware changes which 

eliminated the need for an operator-performed lock-on proce- 
dure and software changes which allowed the acquisition of 
one sample for each consecutive revolution instead of every 
tenth or eleventh as before. In the process of integrating 
the new software into the data acquisition program, one minor 
and one significant error was found in the subroutines used for 
acquiring data through the A/D converter. 

The data is transferred from the A/D converter to the 
21MX computer in 16-bit words. Only the highest 10 bits contain 
the digitized voltage while the A/D channel number (0 through 
15) is transferred in the lowest 4 bits. Using the highest bit 
for the sign, the range of numbers which can be transferred 
is thus ±(2 1 ^-1) or ±32,767, while the smallest meaningful 

g 

division is 2 or 64. The resolution which can be achieved 
26 -in 

therefore is -jg- or 2 or 0.0009 76 of full range. Since 

the full range of the A/D is -IV to +1V, the instrument 
resolution is to about 2 mV. 

The procedure of masking can be used to derive an exact 
digital number solely from the highest 10 bits of the transmitted 
word. If this is not done, the A/D channel number from the 
low bits is included when converting the data word to a decimal 
number. The result is to create decimal numbers which a ppear 
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to be changing with a resolution of 2* is ±32,76 7 or 0.0 305 mvs . 
Since the increase in program running time due to masking was 
insignificant, this procedure was built into the data acquisition 
program. 

The second error was found while using the data acquisition 
program. It was noted that a different number of samples 
acquired from the same machine conditions did not bring any 
significant change in the smoothness of the output. An 
examination of the output of 5 individual samples (Table A-I) 
and the average derived from these samples showed that only 
the first sample was converted from an integer into a real 
number and that the same real number resulted for each individual 
sample no matter what was the value of the integer. 

Figure A-l shows the listing of the original subroutine 
(HP ACE) from McCarville which acquires raw data. The single 
samples are read into array IBUFF(99) correctly (lines #90 
and #125). The conversion into real numbers is incorrect, in 
that only the first value of the array IBUFF(99) is converted. 

Figure A-2 shows the corrected DO-loop. 

Table A-II shows values achieved using the corrected 
subroutine. It can be seen that changes in the integer numbers 
are reflected in the calculated real numbers. 
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In the acquisition program discussed herein a subroutine 



similar to the one of Fig. A-2 was used. 
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Table A- 1. 



Results Using Uncorrected Subroutine 
RPACE (& A2D, McCarville , Ref. 4) 
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n !i 82 






SuBRUU T O'. HP ACL -.fi » ;-v '3 I'SuRU i r. 


In 'Pi 






Cl PUS. IT , J.UFFS , N2 > 


0 4 


c 


, 


i i i • • i i i • r « i « 


1)0 96 


r 






0 0 ?• 6 


C 




f) T A A C 1x1 1'. 9 \ T ."! 8 1 j ft R i ) l.l f : N F 


0 0 87 


c 






U I it? 8 


c 




r i i i i i i 


OH 8? 






REAL SKOP T ( 256 > 


0 090 






0 1. 0 E N 8 1 C M I B U F F < 9 <? . , 1 r I h E ( 5 .> 


on vi 






N~ Trt'v'G 


0 0 98 






CALL EXEC til- IT i HE - I YEAR > 


o i) 03 






W R ,f T E ( 6 . ° 0 .) in! 2 . j. T T ri !'" ■ S ) . .[ •" n R 


H 0 9 4 




9 1) 


FOROA fi // .. 1 OX . " THIS IS 'TEST 1 " . I S'. " 


OOPS 






'V DATE " 1 3 - 3J< . 1 4 - / / > 


0 0 °h 






F.F (ISUTV) , ' ED ; O f;n TO i;41 


0 097 


c 




1(111114 1 1 1 t | 


0119.9 


c 






0 0 99 


f: 




S r N r. | .. p ; O [ N T A C 0 1 1 .0 [ T I O A 


0 x •) n 


C 






u o i 


e 




, , . 


or ns 






£ b L A D E ~ : 5 6. .* ( j; p A I P •- •» .■ [ p 0 S £ 


0103 






IF ( I MODE . F O . f. SO 10 i i)0 


0 1. !'! 4 






:i: b i. a d e ~ j: f l a d e + 1 o o o o • 6 


01 os 




l •) n 


CALL FXLC (.3,1 ••• ) 


0 1 0 3 






CALI. EX EC ( i , !•? , I PPM . 1. . 1 8 1. A 'OF > 


0 1. 0 7 






CALL EXEC . 1 ..20 > £ BUFF .. N , I CHAP . i ' 


01 0 3 






00 1.10 L-l lAvG 


01 J9 




1 1 0 


R BUFFER 61 IFFvFLOh i" ( I F: OFF < I > > . 32 "68 . 


0 1. 1 0 






P TD A T A~R BUFF - / 1 AUG 


1) 1 1 1 






GO TO 195 


u 1 1 2 


c 


, , 


( 


n x i 3 


c 


, 




i) i r i 


c 


t 


S l J R '■> E f A C R O S S & 1... A O E P A I P A C O ! > 1 3 I T i 


» t i 8 


c 


( 




0 i i 6 


c 






0 " X 7 




r 7: a 


!>" < i OF 7 8 , EC , n ,• 70 to 126 


d i 1 8 






r.0 FFC^’.nn/ •: o ffs 


n i i v 






r;u TO 2 ^ 


0i 2 0 




•x or 


I or - f 8-* r 


1) • X 




127 


00 140 28.'.:. 


0 1 22 






[ 'i i A D IF •: l. p ^ J. 7 - i 1 . ! + ;. J 6 6 / l 1 ». •' 6 4- 1 1'l 0 ' A i 


* 23 






CALL EXEC (3 .i ( 9 


o 1 2 h 






CALL Et\iC v X 19 . .r ?! :) * ■ •> . .78 i..;4 07 


i) •! 28 






C ,o I... l. E 2 i .. { i .. 2 1. j v 1 s j 7 , A C ; i r, •• > • 


f. i. 7 6 






RB\jFF"=0 , 'i 


f! * : ? 






:;! j 1 3 0 K - ! > 


0 1. 78 




1 70 


9 B ! .• F F *- w B ■ j r 1- 4 : F j... 0 a T j ' .: f ? / 8 “ v • ■ : : . 


0 i 79 






0 A I A — K •" / 1. ALL 


n -> 3 0 




r '4 o 


oL'O'.'T »; .s ) •• Oh 77 


1>\3 


c 


• ■ 


1 ’ • • ■ 


0 i 33 


c 




C. U 'i PUT TAPI. LS/2R 1.M 


ii X 3 4 


c 


( 




0 i 35 


c 


t 


, t 


0 i 36 






' JRXTE 1 6 - 146) 


0 1 37 




1 4 7. 


F O a n A T ; ; / 2 .3 X . " P A C b 3 U R 7 E Y i> fi '(' A " - "' ) 


ft 1. 38 






WRITE 6 .. I 48.) ' SR up 


0 1 39 




1 48 


FOR HA V ( 8 i 2X . F8 . 7 > ) 


0 1. 1 0 




1. 8 0 


;V p ft / ( i R m;k . 0 0 0 l.l "1 '• ) 


0 1 4 i 






UR ITE '• 6-165) PPM 


0 1 4 2 




168 


c e p n A T i / . 2 0 X - " C O n P p E S 8 O R R p M F O R T ‘i 1 3 


0 4.3 






CSV , ? . / ) 


0 1. 4 4 






GO TO 999 


0 i. 45 




198 


11 R r T E <■ 6 - 1 9 6 ) T P O S V T , I P A I R . P T 0 A t A 


0146 




196 


FORMAT < " THE DATA OrtC UE FOR POM HON " 


0 j 47 






T 1 2 . " 1 8 11 - F 1 0 , "• 


0 1 48 






GO TO l 50 


IV: 49 




999 


RETURN 


n*l s 0 






END 



'.If-' 



Figure A-l. Unchanged Listing of Subroutine RPACE from 
Program & A2D (P. McCarvilie, Ref. 4) 
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", •; 22 
0123 
0 1 . ?. 4 
0 X 2S 
0126 
0 'i 27 
0 123 

0 < 2 S' 

0130 



Figure 



'■27 i)0 140 1 356 

X OLAD£~2‘36'*t I P A 1 2 1 + :'+2S • / ■ i- 2 + 1 0 0 0 0 
CALL EX 5 2 <3,19' 

C A I... L E X E ',11 9 , 1 2 p a , i , I .3 1 . A D E '■ 

CALL EX EC ( 1 , 2 0 ", 1 BUFF , N , [ CHAU . 0 3 
R BUFF -0.0 ' ' . 

00 1.3 0 K ~ 1. • IN 

1 3 0 R B U F F - E B U f f +• F I... 0 A T c T. B U F F ( K > > / 3 2 7 6 8 , 

DA F A — (X BtIFF/ I AUG 
140 SR VET ( J)“0(V( A 



A-2. Corrected Statement of Subroutine 

RPACE from Program &A2D (P. McCarville, Ref. 4) 
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APPENDIX B 



OUTPUT CHARACTERISTICS OF TYPE "A" AND TYPE "B" PROBES 

The DPDS, measurements are carried out using two 
different kinds of pressure probes. The type "A” probe is 

essentially a total pressure probe (see Fig. 4). The general 
behavior of such a probe with respect to angle changes has 
been established for quite some time (Ref. 10) . However, 
using a pneumatic equivalent probe to the "A" probe the out- 
put of the probe as a function of yaw angle was established 
with the probe mounted in the steady flow of a free jet. 

Figure B-l shows this dependence. The characteristics of 
this curve are a flat top, indicating an insensitivity of the 
probe to yaw angle changes of up to ±20° from the zero yaw 
angle position , and the steep but almost linear parts from 

-70° to -40° and +40° to +70°. At yaw angles of -63° and 

+63° the probe reads static pressure and that happens inde- 
pendent of Mach number and pitch angle as long as the pitch 

o o 

angle does not exceed a range of -5 to about +15 . 

Figure 9 shows the output of the type "A" probe for 
different pitch angle settings but one Mach number only. It 
can be seen that pitch angles ranging from -15° to +25° at a 
5° increment produce almost identical curves. 

Figure 1 2 shows the output of the type "B" probe for the 

same Mach number and the same range of pitch angle. It 

can be seen that, compared to the "A" probe 
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probe does not have a flat top for a range of measurement 
close to the zero yaw angle (zero being the yaw angle where 
the probe is aligned with the flow) . Instead it shows a 
clear and well-defined maximum in output for the zero yaw 
angle. It is also evident that the output depends very clearly 
on the pitch angle. The yaw angle where the probe reads static 
pressure is different for different pitch angles and Mach 
numbers. Different Mach numbers always show only one curve for 
the "A" probe (independent of pitch angle) while the "B" probe 
depends on changes of both Mach number and pitch angle . 
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Figure B-l. Indicated Pressure Versus Yaw Angle for a pneumatic Probe Equivalent to a 

Type A Probe. Dynamic Head = 32 " H20. Free Jet Flow, zero Degrees pitch Angle. 
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DATA ACQUISITION PROGRAMS &KALIB AND &YAW 



The purpose of both programs — &YAW and &KALIB — is to ac- 
quire sufficient data for the calibration of either the type 
"A" or "B" probe. It has to be mentioned here that only one 
probe can be mounted in the center of the free jet at a time. 

It is therefore essential to establish identical conditions 
for the calibration of both probes. 

Since the data reduction as outlined in 4.1 requires not 
only the knowledge of Mach number and pitch angle, but also 
the probe output characteristic as a function of yaw angle, 
data is acquired for different yaw angle settings. Here is 
the major difference between programs &YAW and &KALIB. While 
program &YAW requires the data acquisition at one specific 
yaw angle setting, &KALIB acquires data in a continuous mode 
for a range of 160° (-80° to +80°) in yaw angle. 

However, program &YAW will be described first, since it 
is the more conventional one. 

C-l. PROGRAM &YAW 

Since parameters have to be changed during a calibra- 
tion, the program has to work interactively with operator 
input. For each selected combination of Mach number and 
pitch angle data can be recorded for up to 31 probe yaw angle 
settings. For any of these settings the values of total 
pressure, Kulite reference pressure, probe yaw angle and Kulite 
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pressure reading are acquired as the average of 10 data 
samples each. The pitch angle is keyed in by the operator 
prior to the measurement and the total temperature and the 
barometric pressure (static pressure since it is a freejet) 
are measured also . When the data for one yaw angle position 
is taken the operator is asked to have the probe moved to 
another yaw angle and initialize the data acquisition process 
again . 

Once the data for all 31 yaw positions are taken, the 
operator is asked to key in a file name. The raw data from 
this calibration is then stored in a file with the name pre- 
viously assigned. 

In the next step absolute values for the total tempera- 
ture (degrees Fahrenheit) and the static pressure (inches Hg) 
are calculated. File name, pitch angle, total temperature and 
static pressure are written on the line printer. The follow- 
ing DO-loop derives absolute values of the impact pressure 
(inches of water) , the Kulite reference pressure (inches of 
water) , the probe yaw angle (degrees) , and the Kulite pressure 
output (inches of water) as a gage pressure. From these values 
a pressure coefficient c defined as 

P K + Pref - Ps 
C P- P t - P 3 

where p T , = Kulite pressure 

X\ 

p c = Kulite reference pressure 
2T G j_ 

p t = total pressure 
p^ = static pressure 
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is derived. All of these values are tabulated. 



A plot of 0 ^ vs yaw angle is produced automatically 
with the operator's choice of drawing a full grid or just the 
calibration result. 



After this the program can either be stopped or started 

again for a different flow condition. 

C-l gives a flow chart, while C-2 is a program listing. 

Externals: ABRT , CLEAR, CLOSE, CPLOT, CREAT, DRAW, FXD , 

LABEL, LDIR , LOCL, MOVE, OPEN, PLOTR, RMOTE , 
SCANR, SETAR, VIEWP , WINDW, WRITF 



Description 

Array containing pressure coefficients c^ 

Array containing complete raw calibration 
data 

Cartridge reference number 
Data control block 
Array containing file name 
Graphic data control block 

Total number of words to be stored in raw 
data file (two words for one data value) 

Security code 

Array to specify file dimensions (1st 
word for number of records, 2nd for record 
length) 

Type of data file 



Variables 


Type 


CDATA (32) 


Real 


DATA (32 ,4) 


Real 


ICR 


Integer 


IDCB (144) 


Integer 


IFILE (3) 


Integer 


IGCB (192) 


Integer 


IL 


Integer 


ISECU 


Integer 


ISIZE (2) 


Integer 


ITYPE 


Integer 


S 




T 

u 


Real 


V 




w 




X 

Y 


Real 


Z 





Sample readings of 



Average values of 



total pressure 
Kulite ref. pressure 
probe yaw angle 
Kulite output 

total pressure 
Kulite ref. pressure 
probe yaw angle 
Kulite output 
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C-2. PROGRAM &KALIB 



As stated earlier this program records probe data for 
more yaw positions than program &YAW. Once either the "A" or 
the "B" probe is mounted on the freejet and the desired flow 
condition (Mach number and pitch angle) is established, the 
actual pitch angle is keyed in, and single measurements of 
total temperature and pressure as well as Kulite reference 
pressure and barometric pressure are taken. The operator is 
then asked to start the data acquisition process for the Kulite 
pressure/yaw angle measurement. Simultaneously the operator 
has to signal that the probe shall be rotated in the freejet. 
While the probe is rotated from -80° to +80° in yaw at a con- 
stant rate of ~3°/sec, the yaw position and the corresponding 
Kulite pressure reading is recorded alternating ly . When the 
whole range of yaw angle is finished, the flow conditions are 
recorded again and the probe is rotated backwards 160° with 
the same data acquisition process as before. Then the jet 
conditions are recorded a third time. All raw data is multi- 
plied by its corresponding scaling factor. The total tempera- 
ture is calculated in degrees Fahrenheit. A pressure coefficient 
as defined in C-l is derived for all 300 points of measure- 
ment. The whole data array (contents are defined in the listing) 
is stored in one file with its name as operator input. A 
complete output of the file contents is printed. (Note: 
line printer must be set to "comp".) 
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The operator is then asked to specify the form of a 



plot of the just-acquired data. When the plot is completed 
the operator has the choice of stopping the program or per- 
forming another data acquisition for a different flow condition. 
C-3 gives a flow chart of &KALIB while C-4 is a program 



listing . 

Externals: ABRT , CLEAR, CLOSE, CPLOT, CREAT, DRAW, FXD , 

LABEL, LDIR, LOCL, MOVE, OPEN, PLOTR, RMOTE , 
SCANR , SETAR, VIEWP , WINDW, WRITF 



Variables 


T YP e 


Description 


CDATA (300) 


Real 


Array containing pressure coefficients 
c 

T\ 


DATA (2, 3 20) 


Real 


P 

Array containing complete raw calibration 
data 


ICR 


Integer 


Cartridge reference number 


IDCB (144) 


Integer 


Data control block 


IFILE (3) 


Integer 


Array containing file name 


IGCB (192) 


Integer 


Graphic data control block 


IL 


Integer 


Total number of words to be stored 
in raw data file (two words for one 
data value) 


ISECU 


Integer 


Security code 


ISIZE (2) 


Integer 


Array to specify file dimensions Cist 
word for number of records, 2nd for 
record length) 


ITYPE 


Integer 


Type of data file 



By comparison of sets of data acquired with both pro- 
grams for the same flow conditions, no difference was found 
between the results of the two programs. 
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Since program &KALIB offers much more overall informa- 
tion in even shorter time, it was used for the whole calibra- 
tion of both probes with occasional comparisons between the 
two program results. Plots of the probe outputs vs yaw angle 
were produced and stored for each of the conditions to have an 
easy and clear idea of the probe's general behavior. 
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Figure C-l. Flow Chart of Data Acqusition Program & Yaw 
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- 6 Y AW 


T 3 00004 is ON 


CR 0 00 26 USING 00025 BLKS R-00 


000 1 
00 0 2 


FTN4, L 

PROGRAM YAU 


0 003 


REAL 


DAT A < 32 , 4 ) , CDAT A < 3? ) 


0 0 04 


DIMENSION 


IGCB<19^) . iDCB ( 144) , IFILE(3) 


0 005 


DATA 


IDCBS /14 h/ 


0 0 36 


DATA 


ISECU /0/ 


0 007 


DATA 


ICR /29/ 


0 0 08 


DATA 


I TYPE /l/ 


0009 


DATA 


ISI2E /2 , 128/ 


0010 


DATA 


IL /25b/ 


OOii 


C 



00 12 

0013 

0014 

0015 
00 16 
001 ? 
0 019 

0019 

0020 
0021 
0022 

0023 

0024 
0 02S 
0026 
0 027 
0023 

0029 

0030 

0031 

0032 
0 0 33 

0 034 

0033 

0036 

0037 

0038 

0039 
0 0 4 0 
00 41 
0 042 

0043 

0044 
00 45 

0046 

0047 

0048 

0049 

0050 

0051 

0052 
3053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 
0 063 
0064 
0 065 
0066 
0 067 
0068 
0 069 
0 070 

0071 

0072 

0073 

0074 

0075 

0076 
0 0 77 
0073 



PROGRAM TO ACQUIRE DATA FOR THE CAL&RATICN OF A KUL1TE PKOEE 
THIS PROGRAM TAKES DATA AT DEFINED YAU POSITIONS. 

ONLY THE R Aid DATA IS STORED. 



101 FORMAT 

1 02 FOPnAT 

103 FORMA f < 

104 FOR.mAT< 
*e our= 

105 FORMAT 
* ' '•> 

106 FORMAT < 
*EY. IF 

107 FORMAT 
*E , KEY 

149 FORMAT 

601 FORMAT 

602 FORMAT 

603 FORMAT 

*p"// ) 

604 FORMAT 
301 FORMAT < 

1001 FOR MAT < 

1002 FORMATC 
1111 FORMAT ( 

1301 FORMAT ( 

1302 FORMAT ( 

1303 FORMAT ( 
1501 FOR MAT ( 



( “ READ PITCHANGLE FROM TERMINAL*") 

< 14) 

" UHEN YOU ARE READY FOR THE ”14". MEASUREMENT, HIT CR * " ) 

" Pt tunnel- "F8.6" P ref.= '‘F3.6 M Probe po^.= “F8.6" Kulit 
“F8 . 6 ) 

(“ ENTER THE FILE NAME YOU WANT THE RAW DATA TO PE STORED J 

“ TF YOU NEED A COMPLETE NEU FRAME, KEY YE »“/“ ANY OTHER i 
NOT i • ) 

1“ IF YOU WANT ANOTHER SET OF DATA FOR A DJFFRENT PITCH AML 
YES"/" ANYTHING ELSE, IF NOT'") 

< ( 3 A 2 ) ) 

<“ R A DATA ARE STORED IN FILE : "1X.3A2/) 

< " Pi tc.ii = “ 1 4 " Tunnel Tenp.=“F8.2"P Daro = *'F8.5//) 

<" ♦ YAU rulite out Pref. Pttunnel"16/*'C 

< I4.1X,F7.3,3< 1X,F12 -6> ,6X,Fi2.6> 

"CA* ) 

"F1R7M3A1H0T3") 

“F IR7M3A0H0T3" > 

“ ♦ = " IS" IERR = "I5,Fi2.4> 

"B-PROBE PITCH — 14, 1 0 X ’* P BAR3 =”F7.3) 

"TUNNEL TEMPERATURE 3 *'F7 . 3 ,2X"F ILE : "$A2> 

" CP " ) 

“CA") 



DATA LOCATION IN THE DATA FILE : 

FOR 1 = 1 TO 31. I IS THE NUMBER OF THE YAW ANGLE. 

FOR EACH OF THESE YAU ANGLES THE ARRAY CONTAINS THE FOLLOUING 
VALUES IN THE GIVEN ORDER: 



* 1 Pt 

♦ 2 



#31 



r unne 1 



P ref. Kulite Probe position Kulite p r e o s . 



DAT A < 32 , 1 ) 
DAT A < 32 , 2 ) 
DA T A < 32 , 3 ) 



contains 

contains 

contains 



? i tchang 1 e 
t tunnel 
P bar o 



input f'ron terminal 
read fron scanr *2 cti 
read fr oh scanr ti ch 



001 



CALL ADR T < 7 , 2 ) 
CALL RMOTE < 8) 
CALL R MOTE (10) 
CALL RMOTE < 1 5 ) 
UR1TE <8,801) 
WRITE < 15,1001) 
URITE (15,1501) 



PRESET DATA ARRAY UITH 0.0 ! 



DO 002 I 



= 1,32,1 



Figure C-2. 



Listing of Calibration Data Acquisition Program &YAW, 
(Continued on next page.) 
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*07? 

ooo 

091 
if] 92 
0 83 
0 84 
085 
036 
0 87 
088 
08? 
0?0 
0?i 
Q?2 
0 93 
094 
0 95 

i?6 

0 97 
0?8 

0 7? 
100 

1 01 
108 
1 0 3 
1 04 
1 05 
106 
1 07 
' 08 
1 07 
l 1 0 
1 1 1 
1 18 
1 1 * 

1 1 4 
1 15 
1 1 6 
1 17 
1 18 
1 1? 

. 8 0 
1 J 1 
) 22 
i 83 
184 
1 85 
1 86 
i 87 

28 
\ 89 

i '>0 

1 31 
3? 
i J3 

1 34 
1 35 

36 

37 
1 38 
i 39 

40 
11 
1 42 
43 
1 44 
45 

\to 

48 
1 4? 
■ 50 

51 

If 3 

154 
55 
i 56 
l 57 
58 



002 



003 



DAT A ( I , 1 ) =0.0 

DA I A ( I ^2 ) = 0.0 

DA T A < 1,3) =0.0 

DAT A ( I ,4 ) =0.0 

DAT A < 32 , 2 ) = SCANR (15,06,01) 

DATA(32,3) = SCANR < 08 , 25 , 0 1 ) 

WRITE(1,101) 

READ <1.102) DAT A ( 32 , 1 ) 

URITE< 10,1002) 

DO 010 I = 1,31,1 

WRITE (1,103) I 

READ <1.14?) I DUM 

IF (IDUM .NE. 2H ) GOTO 003 

U =0 

X * 0 

Y =0 

Z - 0 



008 



010 



DO 008 J 

S 

U 

T 

X 

U 

Y 

V 
Z 

DAT A ( I , 1 ) 
DAT A( I , 2 ) 
DAT A ( 1,3) 
DA T A ( I , 4 ) 



= 1,10,1 

= SCANR < 15,20 ,01) 

= u ♦ s 

= SCANR ( 15,21,01) 

= X ♦ T 

= SCANR ( 15,22,01) 

= Y ♦ U 

= SCANR < 15,23,01) 

= Z ♦ V 
= U/10 
= X/10 
= Y/10 
L/ M IM \ 1 ) 1 > ~ Z/10 

WRITE( l ,104) (DATA< I , J) ,J= 1,4,1) 

URITE(l'lOS) 

READ (1,149) I FILE 

CALL CREAT < IDCB , IERR , IFILE , ISIZE , IT YPE , ISECU , ICR , IDCBS) 

IF dERR .LT. 0 ) URITE<1 ,1111) JJ.IERR 

CALL OPEN (IDCB, IERR, IFILE, IOPTN, ISECU, ICR, IDCBS) 

JJ - 2 

IF (IERR .LT. 0 ) WRITE(1 .1111) JJ,IERR 
CALL URITF ( I DCB , IERR , DAT A , I L ) 

JJ = 3 

IF (IERR .LT. 0 ) UR ITE ( 1 , 1 1 1 1 ) JJ,IERR 
CALL CLOSE ( I DCB , IERR , 0 ) 

JJ = 4 

IF (IERR .LT. 0 ) WRITE (1,1111) JJ.IERR 
DAT A ( 32 , 2 ) = 32.614? + 34727.9 * DATA(32,2) 

DA T A ( 32 , 3 ) = DATA ( 32 , 3 ) * 10000 
WRITE(6,601) IFILE 

WRITE (6,602) DAT A (32,1) ,DATA ( 32 , 2 ) , DATA ( 32 , 3) 

UR I T E ( 6 , 6 03 ) 

DO 020 I = 1.31.1 
DA T A ( 1 , 1 ) = DATA?!,!) * 10000 
DAT A ( 1,1) = DAT A ( 1,1) * 10 
DAT A ( I , 2 ) = DATA ( 1,2) * 10000 
DA T A ( I , 3 ) = DATA ( 1,3) * 10000 
DAT A ( 1,4) = D AT A ( 1,4) * 10000 

CDATA(I) = ( DA T A ( I , 4 ) ♦ DATA(I,2)> / DAT A ( 1 , 1 ) 

020 UR ITE (6, 604) I , DATA ( I ,3 ) , DATA ( 1 , 4 ) , DATA ( I ,2) , DATA( I , 1 ) ,CDATA(I) 



CALL CLEAR 



(7,1) 

(7) 



040 



CALL 

CALL PLOTR ( IGCB ,2,1,13) 

CALL SETAR (IGCB, 1.5) 

CALL VIEUP ( IGCB,30 . , 110 . ,20 . ,70 .0 ) 
CALL UINDU ( IGCB,-80; ,80 . ,-l . 0, 1 . 0) 
CALL FXD ( IGCB , 1 ) 

VRITEd , 106) 

READ (1,149) IDUM 

IF( IDUh.EQ.2HYE) CALL LGRID (IGCB.-S. 
CALL MOVE ( IGCB,DATA< 1 ,3) ,CDATA< 1 ) ) 

DO 040 1=1.31,1 

CALL DRAW l IGCB . DATA( I ,3) ,CDATA( I ) ) 
CALL VIEUP ( I GC 6 , 0 . , 1 5 6 . ,0. ,100. ) 
CALL UINDU ( IGCB '0 .; 150 . ,0 . , 100 . ) 

CALL MOVE ( IGCB, 22. , 15. ) 

CALL CP LOT (IGCB, -8. ,6 . ,0) 

CALL LABEL ( IGCB) 

URITE( 13,1301 )DATA( 32 ,1) ,DATA(32,3) 
CALL MOVE (IGCB, 22. ,10.) 



,0.5, 0.0, 0.0, 4. 0,1. 0,1.0) 



Figure C-2. 



Listing of Calibration Data Acquisition Program &YAW . 
(Continued on next page.) 
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0 1 59 

a i ^ o 
0 161 
0162 

0163 

0164 

0165 
0 166 
0167 
0169 
016? 
0 170 
0171 
0 172 

0173 

0174 

0 1 75 

0176 

0177 
0 179 
0 179 
0180 

0191 
0182 
0 183 
0184 
0 185 
0186 

0187 

0188 
0 1 9 ? 
0190 
01?1 

0192 

0193 
0 174 
0 i VS 
0 196 
0197 
0 198 
0 199 
09 00 
0201 
0 2 02 
0203 

0 20 4 

0 2 OS 
0906 
0 2 07 
0 208 
0209 

.u? 

*913 

• 914 

>215 

• 216 
•217 

218 

219 

920 

921 



CALL CPLOT ( IGCB. -0. ,0 . ,0 . ) 

CALL LABEL ( IGCfei 

WRITE (13,1302) DAT A< 32 .2 ) , IFILE 

CALL MOVE ( IGCB, 18. 0.26. ) 

CALL CPLOT (IGCB, -8, .6 . ,0 .0) 

CALL LDIR <IGCB>t.$7) 

CALL LABEL ( IGCB) 

URITF (13.1303) 

WR I TE ( 1 . 1 37 > 

READ (1,149) IDIJM 

IF (IDUM .EO. 2HYE) GOTO 1 

STOP 7777 

END 

REAL FUNCTION SCANR <LU,ICHAN,K) 



Clnse relay ICHAN on scanner LU and read the instrument 
indicated 6y K . 

Authors Robert N. Geopfarth 

Date: February 31, 1979 

Detailed program description is auailable in TXCO log; 
variab ies ares 

LU ... LU# of desired scanner (8 or 15). 

ICHAN ... Scanner channel (integer). 

IC ... Scanner cnannel (ASCII). 

K ... Instrument code ( DVM = 1 / Counter » 2 ). 



*. Closes scanner and reads DVh , counter. 

101 Format (A2) 

801 FORMAT < m C") 

1001 FORMAT ( " T 3 T 3 " ) 

1201 FORMAT ( " T “ > 

1S01 FORMAT ("C") 

WRITE ( 8, 901) 

WRITE (15.1501) 

IC = I CON ( ICHAN , 0 ) 

WRITE (LU, 101) IC 
GO TO (01,02) K 

01 CALL TRIGR (10) 

READ (10. 4) DUM 

CALL TRIGR (10) 

READ (10, 4) SCANR 

GO TO 03 

02 WRITE (12,1201) 

READ (12, 4) SCANR 

03 WRITE (LU, 801) 

Rfc TURN 

t ND 

INTEGER FUNCTION ICON(I,N) 

IC=I+N 

IF( IC.LT. 10) GO TO 100 
CALL CODE 
WR I TE( ICON ,60 )IC 
60 F GRMA T ( I 2 ) 

RE TURN 

100 ILON=IC+30060B 
RF TURN 
END 



Figure 02. Listing of Calibration Data Axquisition Program & YAW. 
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Figure C-3. Flow Chart of Data Acquisition Program 
& KALIB 
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001 
>02 
00 3 
'10 4 
0 05 
>06 
0 07 
0 0 8 
007 
'll 0 

on 

H2 
1.3 
014 
0 IS 

: i 1 6 
0 17 
118 
'H? 
0 20 
021 

12*5 

'24 

025 

>26 

0 27 
i, *8 
0 2? 

1 *0 
31 

‘j 32 

0 ? 3 
34 

1 3S 
0 16 
0 3 / 

>38 

) 37 

10 

Ml 

42 

0 4 3 

04 4 

J 4 S 

1 4 6 
M7 



PROGRAM KALIB 

PEAL DATA(2.320) ,CDATA( 300 ) 

DIMENSION IGCB( 192) , IDCBC144) , IF ILE ( 3 ) , I S I 2E < 2 ) 
DATA IDCBS /144/ 

DATA ISFCU /0/ 

DATA ICR /27/ 

DATA ITTPE /l/ 

DATA ISIZE /I 0 , 128/ 

DATA IL 71260/ 



PROGRAM TO ACQUIRE DATA FOR THE CALIBRATION OF A KULITE PROBE. 



1 01 
1 02 
103 

10 4 

1 05 

106 

107 

1 4 ? 
601 
602 

60 3 

604 

605 

606 
607 



608 
609 
801 
1001 
1002 
1111 
1 301 
1 302 
130 3 
1S01 



F OP MA T ( " READ PITCHANGLE FROM TERMINAL:") 

FOR MAT ( "WHEN YOU ARE READY ^OR THE MEASUREMENT, HIT CR '"> 

FORMA r ( “FIRST RANGE COMPLETED 1 " ) 

FOKMAT(" uhen you are ready to move the probe BACKWARDS, KEY CR>“) 
FORMAT (" ENTER THE FILE NAME YOU WANT THE RAW DATA TO BE STORED IN 

* : ” > 

F OR MAT ( '* IF YOU NEED A COMPLETE NEW FRAME, KEY YE !*/" ANY OTHER K 
*E Y . I F NOT * “ ) 

FOR MAT ( ” IF YOU WANT ANOTHER SET OF DATA FOR A DlFFRENT PITCH ANCL 
*E. KEY YES " / " ANYTHING ELSE, IF NOTi") 

F OR MA T ( ( 3A2 ) ) 

P UR HA T ( " RAW DATA ARE STORED IN FILE : " 1 X . 3A2 , 1 5X “P I TCH = “147) 

FORMAK" TUNNEL TEMP. DEG. F TUNNEL PR^SS. INCHES H20 K R 

*EF PRESS. INCHES H20 P BARO INCHES HG " ) 

FORMAT (4<7X,F19. 7) , SX "BEFORE READINGS”/) 

FORMAT ( 4<7X ,F 19. 7 ) ,SX "BETWEEN READINGS"/) 

FORMAT ( 4(7 X ,F 1? . 7) , SX ” AFTER READINGS"/) 

FORMAT ( 4 (7X,F19 .7) ,SX "AVERAGE VALUES"/ ) 

FURMAK” * YAUANG KULITEOUT CP * YAUANG K ULITEOUT CP ♦ 
XAWANG KULITEOUT CP # YAUANG KULITEOUT CP # YAUANG KULIT 
*t OUT CP") 

FORMAT (I3 1 1X,F6.3,2X,F8.S,1X,FS.3,4(I4,1X,F6.3,2X > F8.S,1X,FS.3)) 

F ORMA T ( 1H i ) 

FORMAT ( "CA" ) 

FORMAT ( “F1R7M3A1HQT3”) 

FORMAT ( "FIR 7M3A OHO T3” ) 

FORMAT ( '* t ="IS"IERR = 

FORMAT ( "B-PROBE PITCH 



"IS ,F12 . 4) 

. i. , un -"14 . 1 X * P BARO =”F7 .3 . 1X"FILE = "3A2 ) 
FORMA T( “TUNNEL TEMPERATURE- F7 . 3" TUNNEL P R ESS . = "F7 . 3 ) 
FORMAT ( "KULITE OUTPUT (INCHES H20)") 

FORMAT ( "CA “ ) 



0 19 


C 


.DATA LOCATION IN 


THE DATA FILE : 






05 0 


C 










0 51 


C 


LOCATION IN FI 


LE : 


CONTAINS s 


052 


c 


FOR I 5 1 TO 300 


DAT A( 1,1) 


YAW POSITION 


0 53 


C 


.FOR 7 = 1 TO 300 


DAT A ( 2 , I ) 


KULITE 


PRESS. ! 


'iS4 


c 










H5S 


c 


[LOCATION IN FILE: 


CONTAINS : 


READ FROM: 


'i 56 


c 










0 57 


c 


'. DATA( 1 ,301 ) 


T total runnel 


Ch* 6 


Scanr . * 


>58 


c 


. DA T A ( 2 , 30 1 > 


P total tunnel 


Ch *20 


Sc an r . * 


J 57 


c 


. DAT A< 1 , 302) 


K ref, press . 


Ch*2l 


Scanr * 


>60 


c 


. DA T A ( 2 , 302 ) 


Bar on . press. 


Ch *25 


Scanr . * 


>61 


c 








>62 


c 


! DATA< 1 , 303) 


T total t unne I 


Ch* 6 


Scanr . * 


.63 


c 


. DAT A(2,303) 


P total Tunnel 


Ch *20 


Scanr . * 


6 4 


c 


. D A T A ( 1,304 ) 


K ref. press. 


Ch *2 1 


Scanr * 


'<65 


c 


. DAT A ( 2 , 30 4 ) 


Baron, press. 


Ch *2S 


Scanr . * 


166 


c 








Scanr . * 


0 67 


c 


’. DAT A ( 1 , 30S) 


T total t unne 1 


Ch* 6 


160 


c 


. DATA ( 2 , 30S ) 


P total tunnel 


Ch *20 


Scanr . ♦ 


0 6 9 


c 


. DAT A ( 1 , 306) 


K ref. press. 


Ch *21 


Scanr . * 


i/0 


c 


. DAT A ( 2 , 3 06 > 


Dor on . press. 


Ch *25 


Scanr . * 


r /1 


c 










VA 


£ 




T total tunnel 
P total t unne 1 


9 X 


! S e t 


2/4 


c 


. DATA( 1,319) 


K ref press . 


F r 


on t 1 


<»7S 

'j/6 

0 77 


c 


. DATA(2,319) 


Boren, press. 


r e 


a d i n 


c 

c 


DA T A < 1 ,320 ) 


Pitch angle 


Terminal 


T/U 


c 









b e f o 
read 



b e 



a f 



t w 
a d 



i n g 



i n q s 



reading 



h r e 
9 * 



e 

a b 



Figure C-4. 



Listing of 
(Continued 



Calibration Data Acquisition Program 
on next page.) 



&KALB 
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1)01 
102 
0 8.3 
184 
0 85 
0 08 
007 
0 88 
089 
070 
0 71 
172 
073 
174 
0 75 
0 76 

0 97 
178 
079 

1 00 
101 
10 ? 

103 

104 

105 
1 06 
1 07 
1 08 
109 
1 10 
1 1 1 
1 1? 

1 13 
1 14 
i 15 
i 16 
1 17 
1 18 
1 1 ? 

1 20 
1?1 
1 <2 
i 2 3 
1 74 
1 25 
1 26 
127 
1 28 
1.7 

in 
1 12 
1 3 1 
1 34 
1 35 
1 56 
1 37 
1 50 
1 37 
1 40 
141 
1 42 
143 
1 44 
1 45 
146 
' 47 
1 48 
1 4 ? 

150 

151 

152 

153 

154 

155 
1 S6 

157 

158 



001 



CALL ABRT < 7 , 2 ) 
CALL RMOTE < 8 ) 
CALL RMOTEdO) 
CALL RMOTE (15) 

B8H! MUn 

WRITE (15,1501) 



002 



005 



010 



015 



018 



019 

020 



021 




DO 002 I = 1,320,1 
Da t a < i , i > = o.o 

DA r A < 2 . I ) = 0.0 
WRITE (1,101) 

READ (1, *) DAT A ( 1 , 320 ) 

DAfA(l,301) = SCANR(15, 06, 01 ) 

DA T A( 2 , 30 1 ) = SCANR < IS, 20 ,01 ) 

DA TA ( 1 , 302) = SCANR( 15,21 , 01 ) 

DAT A ( 2 , 302 ) = SCANR (08,25,01 ) 

WRI TE( 10,1002) 

URITEd ,102) 

READ (1,149) IDUM 
IF ( IDUM .NE.2H ) GOTO 005 
DO 010 I - 1 . 150 . 1 
DAT Ad , I ) = SCANR (15,22,01) 

DA T A ( 2 , 1 ) = SCANRdS 23*01) 

DATA( 1 , 303) = SCANR( 15,06,01 ) 

DATA(2,303> = SCANR ( 15,20,01 ) 

DATA<1,304) « SCANR (15,21,01) 

DAfA<2,304) = SCANR( 08,25, 01 ) 

UR I TE ( { , 1 03 ) 

URITEd , 104 ) 

RE AD (1 , 1 49 ) IDUM 
IF ( I DUh . NE. 2H ) GOTO 015 
DO 018 I = 151,300,1 
DAT Ad , I > = SCANR ( 15,22,01) 

DAT A ( 2 , I ) = SCANR ( 15,23, 01 ) 

DA T A ( 1 ,305) = SCANR( 15,06,01 > 

DATA<2,305) = SCANR <1 S , 2 0 , 0 1 ) 

DA T A ( 1 , 306 ) = SCANR( 15,21 ,01 ) 

DAT A ( 2 , 306 ) = SCANR( 08,25, 01 ) 

CALL CLEAR (7,1) 

CALL LOCL (7) 

DO 019 I = 1.319,1 

DO 020 I = 301, 30$, 2 
DA T A ( 1,1) = 32.6149 ♦ 

DA T A ( 2 , I ) = DA TA( 2, I ) * 

DA T A ( 1 ,318) « < DATA< 1 ,301 )>DATA< 1 ,303)>DATA( 1 ,305) )/3 
DATA(2,318) * <DATA<2,301)+DATA<2,303)+DATA(2,305> )/3 
DA T A ( 1 ,319) = (DATA( 1 ,302) +DATA( 1 ,304 ) +DATA( 1 ,306) )/3 
DA f A ( 2 , 3 19 ) * (DATA(2,302)+DATA(2, 30 4 ) +DA T A ( 2 , 306 ) )/3 
DO 021 I = 1.300,1 

CDAT A < I ) = <6aTa(2,I)>DATA<1 ,319)) /DATA(2,318) 

URITEd , 10S) 

READ (1,149) IFILE 

CALL CREAT ( IDCB, IERR , IFILE, ISIZE,ITYPE, ISECU, ICR, IDCBS) 

JJ = 1 ' 

IF ( I ERR .LT. 0 ) URITEd , 1111 ) JJ.IERR 

CALL OPEN (IDCB, IERR, IFILE, IOPTN,lSECU, ICR, IDCBS) 

J J = 2 

IF (IERR .LT. 0 ) URITEd .1111) JJ,IERR 
CALL URITF ( IDCB, IERR, DATA, ID 
JJ = 3 

IF (IERR .LT. 0 ) URITEd ,1111 ) JJ,IERR 
CALL CLOSE ( I DCB , I ERR , 0 ) 

J J 3 4 

IF ( IERR .LT. 0 ) URITE (1,1111) JJ,IERR 
URITEd, 601) IFILE, DATAd ,320) 

UR I TE ( 6 , 602 ) 

URITE (6,603) DAT A ( 1 , 30 1 ) , DAT A < 2 , 30 1 ) , DAT A ( 1 , 302 ) , DAT A < 2 , 302 ) 
URITE (6,604) DA TA ( 1 , 303 ) , DA T A ( 2 , 303 ) , DATA ( 1 , 30 4 ) , DAT A ( 2 , 30 4 ) 



1 0000 
1 0000 



3.47279 * DAT A ( 1,1) 
* 10 



Figure C-4. 



Listing of Calibration Data Acquisition Program &KALIB 
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Figure C 



t •,? 
) 6 0 
16 1 
1 62 
1 6i 
' 1 64 

1 ^ j 
1 66 
l 67 
168 
16? 
1 70 
171 
1 72 
i / 5 
174 

1 75 
176 
1 77 
1 79 
17? 
1 80 
181 
182 
18 * 
t 94 
185 
1 86 
• 1 87 
188 
19? 
1 90 

i n 
192 
17 5 
1 94 
1 75 
1 76 
» 97 

1 98 
1 ?? 

00 
j oi 
02 
’ o 3 

2 0 4 
7 0 5 

’0 6 
'07 
•>’|R 
'09 
'10 
•M 1 
^ 1 2 
1 5 
1 4 
1 5 
716 
'17 
'18 
'1? 
'80 
21 
#'* 1 

.'2 5 

4 

'25 
8 6 



30*) ,DATA(i,306) ,DATA(2,306) 
31§),DATA< 1,319) I DATA (2, 31 9) 



WRITE (6,605) DATA! 1 ,305) ,DATA<2, 

WRITE (6.606) DATA( 1 ,31B) , DATA(2 
URITE<6,607> 

DO 030 I =1,60,1 
J =1+^0 

II = J + 60 

JJ = 11+ 60 

III = JJ+ 60 

0 30 UR I TP ( 6, 608 ) I .DATA ( 1 . I ) . DAT A( 2 , I ) , CDAT A( I ) , J ,DATA( 1 , J ) , DAT A( 2 . J ) ,C 
*DATA( J> . II,DATA(1 ,11), DATA <2, it) , tD ATA ( 1 1 ) J J , DA I A ( i , J J ) , DAT A < 2 , J J 
*) ,CDATA(JJ) , III , D AT A ( l , 1 1 I ) ,L>ATA(2,III) ,CDATA<III) 

UR ITEC6.609) 

CALL PL6TR ( IGCB,2, 1, 13) 

CALL SETAR ( ICCB ,1.5) 

CALL VIEUP (ICCB, 30. ,110. ,20 . .68.0 ) 

CALL UINDW ( ICCB, -80. ,80 ., -160.00, 160. 0) 

CALL (- XD ( ICCB, 1 ) 

UR r TE( 1 , 106) 

READ ' i , 1 4?) IDUM 

IFUDUM.EQ.2HYE) CALL LGRID (IGCB.-5. ,10. ,0.0,0 .0,4. 0,2. 0,1 .0) 
CAIL MOVE ( ICCB, DATA < 1 , 1) ,DATA<2, i) ) 

DO 040 1=1.300.1 

040 CALL DRAU ( I CC B . DAT A ( i , I ) , DAT A ( 2 , I ) ) 

IFUDUM .NE. 2Hy£> GOTO 0^0 
CALL VIEUP ( IGCB , 0 . ,1S0. ,0. ,100.) 

' mr * " ,0.100.) 



050 



CALL UINDU ( IGCB. 0. , 150 . 

CALL MOVE ( IGCB, 22. . IS. ) 

CALL CPLOT( IGCB .-8. , 6 . , 0 ) 

CALL LABEL < IGCB) 

UR I 1E( 13, 1301 )DATA( l ,320) , DAT A (2, 31 9) , IFILE 
CALL MOVE (IGCB, 22. 10.) 

CALL CPl.OT ( IGCB, -9. , 0 . ,0 . ) 

CALL LABEL (IGCB) 

WRITE (13,1302) DAT A ( 1 , 31 8 ) , DAT A ( 2 , 3 18 ) 

CAL L MOVE ( IGCB, 19. 0,20 . ) 

CALL CPLOT ( IGCB , -8 . .0 . , 0 . 0 ) 

CALL LDIR ( IGCB, +1 .57) 

CALL LABEL (IGCB) 

WRITE (13,1303) 

CONTINUE 
WRITE( 1, 107) 

READ(1,149> IDUM 

IF (IDUM .EQ. 2HYE ) GOTO 1 

STOP 7777 

END 

REAL FUNCTION SCANR (LU,ICHAN,K) 



Close relay ICHAN on scanner LU and read the instrument 
indicated oy K. 

Author: Pobert N. Geopfarth 

Date February 31, 1979 

Detailed programs description is available in TXCO log; 
variables are; 

UJ ... LU# of desired scanner (8 or IS). 

ICHAN ... Scanner channel (integer). 

IC ... Scanner cnannel (ASCII). 

K ... Instrument code < DVM = 1 / Counter = 2 ). 



the 



101 
801 
1001 
12 01 
1501 



*. Closes scanner and reads DVM, counter. 
FORMAT (A2) 

FORMAT ( l, C M ) 

FORMAT ( ” T 3 T 3 " ) 

FORMAT ("F") 

FORMAT ( ,, C") 



'27 


URITE ( 8, 801) 




•88 


WRITE (IS, 1501) 




»? 


IC = ICON( ICHAN, 


, 0 ) 


50 


URITE (LU, 10D 


IC 


5 i 


GO TO (01 ,02) K 






01 CALL TRIGR < 10) 




34 


READ (10, *) 


DUM 


1 55 


CALL TRIG# (10) 




.*36 


READ (10, *) 


SCANR 


'37 


GO TO 03 





(8 



-4. Listing of Calibration Data Acquisition Program &KALIB . 
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0239 

0240 

0241 

0242 

0243 
02 4 4 
02 45 
0246 



0247 

0240 

0249 

0250 

0251 



0252 



025 3 
02 



02 WRITE (12,1201) 

READ (12, *) SCANR 

03 WRITE < LU , 801) 

RETURN 

END 

INTEGER FUNCTION ICON(I 
IC=I+N 

I F < I C . LT . 10) GO TO 100 
CALL CODE 
UR I TE ( ICON , 60 ) IC 
60 FORMAT (12) 

RETURN 

100 ICON=IC*30060E< 

RE TURN 
END 



, N ) 



Figure 04. 



Listing of Calibration Data Acquisition Program &KALIB 
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APPENDIX D 



DATA REDUCTION PROGRAMS & RESTS AND & FES T9 

The programs &REST8 and &REST9 are in principal the same 
and follow the same logic. They are used to approximate the 
Mach number--or X — and the pitch angle, <j> , as functions of 
the two independent variables 8 and y (see 4.5). The soft- 
ware used to work out the approximations is described ex- 
plicitly in Ref. 6. Basis for the approximation is the data 
as shown in Table V. This data is stored as a 10 by 54 array 
in a data file ABNEW2 on cartridge 26. The data is read 
into a 10 by 54 array from file ABNEW2 by both programs. 

Since the approximation itself is carried out in external 
subroutines, the necessary variables are contained in a 
common block. &REST8 thus contains 8 (BETA), y (GAMMA) 
and X (XVEL) while &REST9 contains 8 (BETA) , y ( GAMMA ) and 
PHI (pitch angle in radians) . As approximations of differ- 
ent order are possible for both variables 8 and y, the orders 
of the approximations are increased from one to six in a 
DO-loop for both variables, resulting in a total of 36 
combinations . 

For all combinations the set of coefficients is printed 
out and also an array (6,9) for all errors (see 4.5) re- 
sulting from this particular approximation. When the whole 
DO-loop is worked out, the operator has to decide what order 
of approximation he wants to use for the application of the 
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probes. In general lower order polynomials should be pre- 
ferred against higher ones, although the latter promise the 
smaller overall error. The criterion for the decision should 
be the error distribution within a range of Mach number and 
pitch angle which will be the one of the most common 
application . 

Once this decision has been made, the operator inputs 
the desired orders of polynomials. The corresponding coef- 
ficients are then recalculated and the operator is asked for 
a file name under which he wants to have these coefficients 
stored in a 7 by 7 array. 

As programs &REST8 and &REST9 are in principal identi- 
cal, only one flow chart (Fig. D-l) is given, and a listing 
of program &REST9 is given in (Fig. D-2) . 



Labeled common blocks: 
Common block identifier 



Variable 



MATRX A, B 

SUMME BETA, GAMMA, XVEL (or PHI) 



Variables Type 
A(49,49) Real 

B ( 49 ) Real 



Description 



System matrix used for the 3-D approxi- 
mation of XVEL (or PHI) as function of 
BETA and GAMMA (see Ref. 6) 

Right hand side vector of 3-D approxima- 
tion (see Ref. 6) 



BETA (16, 16) Real 
COEFF (7,7) Real 



Beta — pressure coefficient 
Approximation coefficients array 
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Variables 




Description 


D ( 10 , 5 4 ) 


Real 


Calibration data array 


GAMMA 


Real 


Gamma — pressure coefficient 


ICR 


Integer 


Cartridge reference number 


IDCB (144) 


Integer 


Data control block 


IFILE (3) 


Integer 


Array containing file name 


ISECU 


Integer 


Security code 


ISIZE (2) 


Integer 


Array to specify file dimensions (1st 
word for number of records, 2nd for 
record length) 


ITYPE 


Integer 


Type of data file 


NMACH 


Real 


Number of different Mach number settings 
during the calibration 


NPITCH 


Real 


Number of different pitch angle settings 
during the calibration 


PHI (16,16) 


Real 


Array containing the actual pitch angle 
settings during the calibration 


PI 


Real 


3.14593 


R ( 16 ) 


Real 


Array containing the individual errors 
between calibration data and calculated 
values 


SUM 


Real 


Calculated value of XVEL or PHI (de- 
pending on program) 


XVEL(16, 16) 


Real 


Array containing the actual Mach number 
(X) settings during the calibration 
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DO 0i2 
DO 012 




Figure D-l. Flow Chart of Data Reduction Program & REST 8/9 
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6REGT? T=00004 IS ON CR00026 USING 00024 &LKS R=0000 
F T N4 , L 
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0013 
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0021 
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0026 
0027 
0 028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 
U 0 38 

0039 

0040 

0041 
0 0 42 
0043 
0 0 44 
0045 
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0 07 4 
00^5 
007 b 
00^7 
0 0 7R 



PROGRAM REST? (3,99) 



This is proqron REST9 • 

It reads file AFtNEU2 (26) which contains calibration data fro« 
the new A- ana H-probe ( 0.062" o . d . . screen with holes;. 

It then approximates The pitchanqle Phi as a function of 
beta and gamma bo different order of polynominals . 

The results of all approximations are printed for evaluation 

? urposes, but only one set of coefficients is stored. 

he software used for the polynominal approximation is 
available in the Tur bopr op ulsi on Laboratory Binary Library 
(TRLBL) . See NP S67-80~0 0 1 CR for further reference. 



101 

149 

601 

602 

603 

604 

605 

606 
1111 



CONDON / MATRX / A B 
COMMON / SUMME / BET A, GAMMA , PHI 
REAL A( 49 . 49 > fc(49> .COEFF (7 ,7) . D( 10 ,54) 

INTEGER IDCB( 144 > . l£lLE(3> . ISlirC?) 

REAL BET A ( 1 6 , 1 6 ) , GAMMA ( 16 , 1 6 ) ,PHI(16,16) 

REAL R ( 1 6 ) 

DATA P I /3. 141593/ 

DATA IFILE /2HAB , 2HNE , 2HU2/ 

DATA ISLCU /0/ 

DATA ICR /26/ 

DAI A I T TPE /i/ 

DATA ISIZE /3 . 128/ 

DATA I DCBS / 1 4 4/ 

FOPhAT ( " SELECT SET 
*GRDER AND NORDER NOW 
F OR MAT ( **"( ( 3A2 ) ) ) 

FORMAT (///“ COEFFICIENTS FOR THE CALIBRATION SURFACE STORED IN FI 
*LE : "3A2/ ) 

FORMAT ( (3X , 10 ( 1 IX , 12) > ) 

FORMAT < IX, i2, 7<2X.F1 1 .6 ) ) 

format (///- Errors at each point (degrees)"/) 

FORMAT ( (3X . 16i6X, I2> > ) 

FORMAT ( 1 X , I 2 . 1 6 ( 1 X , F7 . 3)/3(3X . 16(1X,F7.3)/)) 

FORMAT ( “ STATEMENT 4 "14 “ ERROR ♦ "14 " ENCOUNTERED ! H ) 

LI = LOGLU(I) 



OF COEFFICIENTS FOR BEST RESULTS '•'/" ENTER M 
1 ) 




CALL OPEN ( IDCB, IERR , IFILE , IOPTN, ISECU, ICR , IDCBS) 
JJ = 1 

IF ( IERR . L T . 0 ) WRITE (LI.llll) JJ,IERR 

CALL READF ( IDCB, IERR , D, 1080 ,LEN, 1 ) 

JJ = 2 

0 -- 



URITE (LI, 1111) J J , IERR 



0 055 




CALL CLOSE 


( IDCB, IERR 


0056 

0057 




JJ = 3 
IF ( IERR 


LT. 0)i 


0058 

0059 




IJ 


* 0 


0 060 




DO 001 I 


= 1,6,1 


OOol 




DO 001 J 


= 1.9,1 


0 Qo2 




IJ 


= IJ ♦ 1 


0063 




IF (J .EQ. 


6) 0(4 IJ) 


0064 




PHI (I,J) 


= D( 4 , 1 J ) 


3065 




BETA ( I , J ) 


= D ( S , I J ) 


0066 


001 


GAMMA ( I , J ) 


= D(9, IJ) 


0067 

0063 

0069 




NMACH 


= 6 


0070 




NP ITCH 


= 9 


0071 

ms 


002 


CONTINUE 





D ( 4 I J ) + n. 00001 
PI / 180 . 0 



CALCULATE CALIBRATION SURFACE COEFFICIENTS 



Figure D-2. Listing of Reduced Data Approximation Program &REST9 
(Continued on next page.) 
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Figure 



0079 

0080 
0081 
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0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 



m 

DO Oil MU 
DO Oil NU 
HORDER 
NORDER 

003 CONTINUE 
DO 004 I 
DO 004 J 

004 COEFF < I > J > 
M 

N 



’6 

1 , 6,1 

1 , 6,1 

HU 

NU 

1,7,1 

1,7,1 

0.0 

HORDER ♦ 1 
NORDER+1 



CALL COHAT < A . 8, H , N , NHACH , NP I TCH ) 



NEQUS 



CALL ELGJ (NEQUS) 



II 

DO 005 
DU 005 
II 

005 COEFF(I.J) - 
IF ( I J 1 .NE. 
IF I LE < 1 > 

IF ILE <2 ) 

IF ILE ( 3 ) 



006 



0 

I * 1 ,H ,1 
J - l.N 1 
= I { + { 
b( II ) 

. 1 > GOTO 
2 HHI 
2 HST 

2 HFI 

CALL GREAT ( I DCB , IERR , IFILE , ISIZE, ITYPE , ISECU , ICR , IDCBS) 
JJ * 4 

IF ( IERR .CT. 0 > WRITE (LI. 1111 ) JJ,IERR 
CALL OPEN ( IDCB, IERR, IFILE, IOPTN, ISECU, ICR , IDCBS) 

JJ « 5 

IF ( IERR .LT. C ) WRITE (LI.llll) JJ,IERR 
CALL URITF < I DCB , I ER R , COEFF , 98 ) 

JJ * 6 

IF < IERR .LT. 0 > WRITE (LI, 1111 ) JJ,IERR 
CALL CLOSE ( IDCB, IERR , 0 ) 

JJ = 7 

IF ( IERR .LT. 0 ) WRITE (LI, 1111 ) JJ,IERR 
WRITE ( 6 , 601 ) IFILE 

006 CONTINUE 

URITF ( 6 , 602 ) <J,J= 1 ,N, 1 ) 

DO 007 I=l.rt,l 

007 URITF ( 6 , 603 ) I .< COEFF < I . J ) , J = 1 , N , 1 ) 

WRITE ( 6 , 602 ) <J,J=l,N,l) 



CALCULATE ERRORS FOR ALL HACHNUHPER PITCHANGLE COMBINATIONS. 



URITE (6,604) 

WRITE (6.605) ( J , J = 1 , NP I TCH , 1 ) 

DO 010 1 = 1, NHACH, 1 

DO 009 J = 1 , NP I TCH , 1 
SUM = 0 . 

DO 008 II * 1 ,H,1 
DO 008 Jl = l.N.l 

0 08 9UM=SUH+< COEFF ( II . J1)*GAMMA< I , J > ** ( J 1 - 1 ) ) *BETA ( I , J > ** ( 1 1 -1 > 

009 R ( J ) * (PHI(I.J) - SUH) * 100.0 / PI 

010 URITE (6,606) I , ( R < J > , J* 1 , NP I TCH , 1 ) 

WRITE (6,605) ( J , J - 1 , NP I TCH , 1 ) 

IF ( I J I .EQ. 1 > GOTO 012 

011 CONTINUE 
WRITE (LI , 101 ) 

READ (LI, *> HORDER , NORDER 
IJI =1 

GOTO 003 

012 STOP 7777 
END 



D-2. Listing of Reduced Data Approximation Program &REST9 
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APPENDIX E 



DATA EVALUATION PROGRAM &EVALU 

As described in 5.1, program &EVALU simulates a case in 
which calibration data is treated as actual test data--as 
far as possible. From this data flow quantities of Mach 
number and pitch angle are derived using the whole data re- 
duction method, and compared with the known actual values. 

The program is set up to perform this comparison for all 
given Mach number/pitch angle combinations. However, since 
the process is rather extensive and time-consuming, the pro- 
cedure is actually only worked out for a limited range of 
calibration settings. 

First of all the program reads the sets of coefficients 
for the Mach number and pitch angle approximations (as gen- 
erated in & RESTS and &REST9 ) into two arrays. In a loop 
corresponding calibration data of the "A" and "B" probes for 
one Mach number/pitch angle combination is read at a time. 
This data is read into two data arrays ( ADATA ( 2 , 320 ) and 
BDATA ( 2 , 320 ) ) . For nine defined yaw angles (±65°, ±45°, 
±30°, ±15°, 0°) the program searches for given yaw angles 
which are closest to the defined ones and averages four yaw 
angles bigger and four smaller than the one found as well 
as it averages the corresponding pressure values. This re- 
sults in nine single pairs of PA values and yaw angles. The 
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B probe "data acquisition" is handled differently. For a 
range of yaw angle smaller than the whole calibration range 
the output of the B probe p 3 is approximated with a sixth 
order polynomial as a function of yaw angle. For nine spe- 
cific values of yaw (±30°, ±22.5°, ±15°, ±7.5°, 0°) corres- 
ponding pressure values p B are calculated using the derived 
polynomial . 

These data arrays PA (9.) /YAWA(9) and PB ( 9 ) /YAWB ( 9 ) are 
equivalent to the data acquired in a test. They are again 
approximated and the pressure values PAMAX , PSA and PBMAX 
are calculated. The data reduction procedure as outlined in 
4.5 is applied to these values and the Mach number (or X) 
and pitch angle are derived. Since the yaw angle is always 
adjusted to zero when aligned with the flow in the freejet, 
the yaw angle should always turn out to be zero. However, 
the program offers the possibility to artificially super- 
impose a different yaw angle in that the given relationships 
p^ = P^(a) and p B =Pg(a) are shifted to p^ = P A (ct + Aa) and 
P B =Pg(a+Aa), where Aa is the "artificial" yaw angle. The 
quality of the flow quantity calculations is expressed in 
errors of Mach number, pitch angle and yaw angle as described 
in 5.1. The necessary error values are printed out and the 
loop is continued. Figure E-l gives a flow chart of the 
program while Fig. E-2 contains a listing. 
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Labeled Common Block: 



Common block identifier: Variable: 



DTA2 



XI, Y 



Variable 

AAO 

ABO 

ADATA(2, 320) 
AFILE (3) 

ASL 

ASR 

BDATA(2, 320) 
BFILE (3) 

COEF (7) 



Type 

Real 

Real 

Real 

Integer 

Real 

Real 

Real 

Integer 



Description 

Flow yaw angle derived from A probe 

Flow yaw angle derived from B probe 

Array to contain the A probe data 

Array to contain the file name for 
A probe data 

Left hand side yaw angle of A probe 
output 

Right hand side yaw angle of A probe 
output 

Array to contain the 3 probe data 

Array to contain the file name for 
B probe data 



Real Array to contain coefficients from 

2-D approximations 



COEUX(7,7) Real Array containing the coefficients 

of the 3-D approximation for the 
velocity 



COEUP(7,7) Real Array containing the coefficients 

of the 3-D approximation for the 
pitch angle 



CP AM AX 



Real Maximum pressure coefficient A probe 



CPBMAX 



Real Maximum pressure coefficient B probe 



DP 



DPX 

DX 



Real Pressure difference for two pressure 

values corresponding to two yaw 
angles which are separated by DX 

Real First derivative of the function 

P A (a) - p A ( a - Aa) 

i 

Real Given spread in yaw angle between 

PSAL and PSAR 
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Variable 


Type 


Description 


ERPHI 


Real 


Error between measured and calculated 
pitch angle 


ERXVEL 


Real 


Error between measured and calculated 
Mach number (Xvel rsp.) 


ERYAW 


Real 


Error between measured and calculated 
yaw angle 


GAMMA 


Real 


Pressure coefficient 


ICR 


Integer 


Cartridge reference number 


IDCB (144) 


Integer 


Data control block 


IFILE (3) 


Integer 


Array containing file name 


IL 


Integer 


Total number of words read from 
data file (two words for one value) 


ISECU 


Integer 


Security code 


ISIZE (2) 


Integer 


Array to specify file dimensions 


ITYPE 


Integer 


Type of data file 


ICLR ( 3 ) 


Integer 


Command to clear line above cursor 


NOLF 


Integer 


No line feed command 


NOCR 


Integer 


No carriage return command 


PA (9) 


Real 


Array for A probe pressure values 


PAMAX 


Real 


Maximum pressure of A probe 


PB (9) 


Real 


Array for B probe pressure values 


PBMAX 


Real 


Maximum pressure of B probe 


PHI 


Real 


Pit«;h angle (calculated) 


PHIME 


Real 


Pitch angle (measured) 


PSA 


Real 


Static pressure equivalent of A probe 


PSAL 


Real 


Pressure reading of A probe for a 
yaw angle 63° to the left of the flow 
aligned yaw angle 
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Variable 



Type Description 



PSAR 


Real 


Pressure reading of A probe for a 
yaw angle 63° to the right of the 
flow aligned yaw angle 


PSTAT 


Real 


Static pressure 


P TOTAL 


Real 


Total pressure 


P1-P8 


Real 


A probe pressure values in the 
vicinity of a given yaw angle giving 
the basis to find an average pres- 
sure value for the corresponding 
yaw angle 


XVEL 


Real 


Mach number equivalent dimensionless 
speed 


XVELME 


Real 


Measured XVEL 


xo 


Real 


Starting value for the iteration 
to find PSAL and PSAR 


XI (256) 


Real 


Data array for 2-D approximations 


Y ( 25 6 ) 


Real 


Data array for 2-D approximations 


YAWA ( 9 ) 


Real 


Array containing A probe yaw angles 


YAWB ( 9 ) 


Real 


Array containing B probe yaw angles 


YAWOFF 


Real 


Superimposed yaw angle offset to 
simulate yaw angles different from 
0°. 


Y1-Y8 


Real 


A probe yaw angles in the vicinity 



of a given yaw angle equivalent to 
P1-P8 . 
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Figure e- 1. Flow Chart of Data Evaluation Program &EVALU . 
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PROGRAM EVALU <3,99) 

THIS IS PROGRAM E V A L U (are) ! 

IT CAN TREAT THE RAU DATA FROM THE A- AND B-PROBE CALI- 
BRATION LIKE ACTUAL TEST DATA « 



COMMON / DTA2 / X i ' Y ’ 

INTEGFR I DCB < 1^4) I FI LE < 3 ) ,ISI2E<2> , NCLF , NOC9 < 2 > , ICL.9 <3> 
INTEGER AFILE< 3>,&FILE(J> 

REAL AD AT A < 2 , 320 >BDATA<2.320 ) , XI (256) ,Y<256) ,C0EF<7> 

REAL C0EKX<7,7> ,CuEKP(7,7$ 

~~ "" , Y AUA < 9 > , Y AUB < 9 ) 
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149 

150 



REAL PA (?) 
DATA ISIZE (1) 
DATA ISIZE (2) 
DATA ITYPE 
DATA IDCBS 
DATA IL 
DATA NOLF 
DATA NOCR 
DATA I CLR 
FORMAT < 



, P B (9) 

/ 10/ 

/ 128/ 

/ 1 / 

/ 144/ 

/ 1200 / 

/0 065378/ 

/000033B , 040433B/ 

/01S524B, 01 55 158,0065378/ 

DO YOU WANT AN OUTPUT OF THE CAL I PR A T I ON COEFFICIENTS?" 
*/" ENTER YES IF SO OR ANYTHING ELSE IF NOT'") 

FORMAT <<3A2)> 

FORMAT <“ ENTER FILE < ) FOR X APPROX 1 MAT I ON ' “ / 

t- DON'T FORGET SECURITY CODE \ CARTRIDGE REFERENCE NUMBER!-/ 



151 

152 

153 

154 

155 



*• 



H A2> 



FORMAT <3A2, IX, 12, IX , 

FORMAT <//- T HE DATA READ FROM FILE 



: . 12 ) 



FORMAT ( - I T3 To 1 12 > 

FORMAT <“ “I3.7< IX, FI 1 . 6) ) 
FORMAT <■ ENTER FILE (SIFP ) 



*3A2 



ARE*/) 



FOR PHI APPROXIMATION » */ 

*“ DON'T FORGET SECURITY CODE * CARTRIDGE REFERENCE NUMBER'”/ 

**SIFP : : -A2) 

156 FORMAT <• ENTER THE OFFSET OF THE YAUANGLE IN DEGREES « " ) 

157 FORMAT < " RESULTS FROM THE A-B SYSTEM: '*// 1 U X " CALCUt.AT I ON : "i5X"MEASU 
*R EMENT • , ‘12X-ERR0RS"/6X"XUEL-5X*‘PITCH M 7X , ‘YAU‘ , 6X*XLCL ,, SX ,, P ITCH , *6X‘XU 
*EL ”SX "P ITCH“7X H Y A W " 3X M Y AW FROM A PROBE"//) 

FORMAT < 1 X < 3A2 ) ) 

FORMAT </" RAU DATA ; "/" * A - KULITE 8 - KUL I TE “7X ” Y AU A 

* **7X "YAW Ft") 

FORMAT < 13 , 4<2X .F10 . S> ) 

FORMAT < " A-PROp£ APPROXIMATION RESULTS r YAU = “5 ( 5X , F9 . 2 ) /i 6X “ PR 
♦ESSURE (INCH H20) = "3 < 3X , F 1 1 . 6 > /29X M CPAMAX * "F8.4/) 

F OR MAT ( / " B-PROBE APPROXIMATION RESULTS : YAU0 = "FS . 1 " PRESSURE 

♦ (INCH H20) = " F 6 . 2/ / ) 

FORMAT < 1X,F9. 4 ,2<3X ,F7. 2> , 1X,F9 .4 ,3X ,F7 .2,1X ,F9 . 4,3< 3X,F7.2) ) 
FORMAT < " 1 / J "112,6116) 



158 

159 

160 
161 

1 62 

163 

601 

602 

603 

604 
1111 



FORMAT ( ' 



*13 >7< IX ,F15.6> ) 



•13'* DEGREES "//) 



FORMAT <- ARTIFICIAL YAU ANGIE OFFSET IS 
FORMAT (/) 

FORMAT (" STATEMENT ♦ = "13" ERROR * * "13" ENCOUNTERED'") 
LI = LOGL1J < ISESSN ) 

LO = 6 

WRITE (LI, 148) 

READ (LI, 149) I P R INI 



READ FILE 



FROM DISC INTO ARRAY C0EKX<7,7). 



WRITE (LI, ISO) NOLF 

READ (LI , 151 ) IFILE.ISECU , ICR 

WRITE (LI, 149) (ICLft.Ii * 1,3) 

CALL OPEN ( IDCB, IERR , IFILE , IOPTN, ISECU , ICR , IDCBS) 
JJ = 1 

IF ( IERR .LT. 0 > WRITE (LI ( H11) J J , IERR 

gALL RtADF ( IDCB , IERR > COEKX , 98 , LEN , 1 ) 

IF ( IERR .LT. 0 > WRITE (LI, 1111) JJ,IERR 
CALL CLOSE ( I DCB , IERR , 0 ) 

JJ = 3 

,LT. 0 > WRITE (LI. 1111) JJ.IERR 

.NE. 2HYF) GOTO 0 1 1. 



IF ( IERR 
IF (IPRIN1 



Figure E-2. 



Listing of Calibration Data Evaluation Program &EVALU 
(Continued on next page.) 



135 



OUTPUT INPUT DATA . 



0 0 7 ^ 

0 OHO 
0081 
0062 

0083 

0084 

0085 

0096 

0097 
0088 
008? 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

m 

0132 

0133 

0134 

0135 

0136 

0137 

0130 

0139 

0140 
0 141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 
0 152 

0153 

0154 

0155 

0156 

0157 

0158 



WRITE (LI, 152) IFILE 

IF ( LO .NE. 0 ) WRITE (LO, 152) IFILE 
WRITE (LI, 153) ( 1 1 ,11 = 1,7) 

IF ( LO .NE. 0 ) WRITE (LO, 601) (11,11=1,7) 

DO 005 11=1,7,1 

IF ( LO NE. 0 ) WRITE <LO, 602) II , (C0EKX(I1 ,Ji> , Jl = 1 ,7,1) 
305 WRITE (LI, 154) 1 1 , ( COEK X ( 1 1 , J1 ) , J 1 = 1 7 , 1 ) 



READ FILE 



FROM DISC INTO ARRAY C0EKP(7,7). 



010 CONTINUE 

WRITE (LI, 155) NOLF 

READ (LI, 151) IFILE, ISECU. ICR 

WRITE (LI, 149) (ICLR.Il = 1,3) 

CALL OPEN (IDCB, IERR, IFILE, IOPTN, ISECU, ICR, IDCBS) 
JJ = 4 

IF ( IEPR .LT. 0 ) WRITE (LI, 1111) JJ,IERR 
CALL READF ( I DCB, IERR , COEKP , 98 , LEN , 1 ) 

JJ = 5 

IF < IERR .LT. 0 ) WRITE (LI, 1111) JJ,IERR 
CALL CLOSE ( IDCB , IERR , 0 ) 

JJ * 6 

IF ( IERR .LT. 0 ) WRITE (LI, 1111) JJ,IERR 
IF ( IPR INI .NE. 2HYE) GOTO 020 




WRITE (LI, 152) IFILE 
IF < LO .NE. 0 > WRITE ( LO , 152) IFILE 
WRITE (LI, 153) (11,11=1,7) 

IF ( 10 .NE. 0 ) WRITE (LO, 601) (11,11=1,7) 

DO 015 11=1,7,1 

IF ( LO .NE. 0 ) WRITE (LO, 602) 1 1 , ( COEKP ( 1 1 , J 1 ) , J1 = 1 , 7 , 1 ) 
015 WRITE (LI, 154) 1 1 , ( COEKP ( 1 1 , J 1 ) , J 1 = 1 , 7 , 1 ) 

020 CONTINUE 




WRITE (LI, 156) 

READ (1. *) YAUOFF 

WRITE ( Ld ,603) YAWOFF 
AF ILE ( 1 ) = 2HA2 
AF ILE ( 2 ) = 2HKP 
PFILE(i) = 2HB2 
I J I => 1 

15 = 1 

WRITE ( LO , 157 ) 

GOTO 135 
025 CONTINUE 

WRITE (LI, 159) AFILE 
WRITE (LI, 158) BF ILE 
IJI = IJI ♦ 1 

15 = 15 



IF ( AFILE ( 1 ) .EQ.2HA2.0R .AFILE (2) . EQ . 2HKN . OR . AFI LE ( 3 ) .EQ.2H25.0R . 
t AF I LE ( 3 ) . EQ . 2H2 0 ) GOTO 135 
CALL OPEN (IDCB, IERR , AFILE, IOPTN, ISECU, ICR, IDCBS) 

JJ = 7 ’ 

IF ( IERR .LT. 0 ) WRITE <LI.iill) JJ,IERR 
CALL READF ( IDCB , I ERR , ADATA , l L , LEN , 1 ) 

JJ = 8 

IF ( IERR .LT. 0 ) WRITE (LI, 1111) JJ,IERR 
CALL CLOSE ( I DCB , I ERR , 0 ) 

JJ * 9 

IF ( IERR .LT. 0 ) WRITE (LI, 1111) JJ,IERR 

CALL OPEN ( IDCB , IERR ,BFILE , IOPTN,ISECU, ICR , IDCBS) 

IF ( IERR .LT. 0 ) WRITE (LI, 1111) JJ,IERR 



Figure E-2, 



Listing of Calibration Data Evaluation Program &EVALU 
(Continued on next page.) 
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a is-' 

oi*o 

0 lol 

01 o 2 

0 1&3 

0164 

0165 

0166 

0167 

0169 

0167 

0170 

0171 

0172 

0173 

0 174 

0175 

0176 

0177 

0178 

0179 

0180 

0 191 

0192 

018 3 

0184 

0185 

0 186 

0167 

0188 

0139 

0190 

0171 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0209 

0209 

02 1 0 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0213 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0210 

0231 

0234 

0235 

0236 

0237 

0238 

e-; 



CALL 9FADF K i DCB , 1 1 RH , 6DA J A lCn , i ) 

JJ = 11 

IF ( ItRR .LT. 0 ) URITE < L I ,1111) JJ.ICRR 
CALL CLOSE < IDCB , IERR , 0 > 

JJ = 12 

IF < IERR .LT. 0 ) URITE (LI, 1111) JJ,IF.RR 



DO 030 I = 1,300. i 
ADATA ( 1 , I 1 =S adAta ( 1 , I > 
BDATA (1,1) = BDATA (1,1) 
ADATA (2,1) = ADAT* (2,1) 
030 BDATA (2,1) - PDA TA (2,1) 





I I 


3 


0 




DO 


055 J = -i 




JI 


a 


J 




IJ 


= 


J / 2 




IF 


< 


J . EO. 




IF 


( 


J . EQ. 




I I 


= 


II + i 




DO 


035 I = 1 




IF 


( ADAT A( 1 




r l 


= 


ADAT A ( ( 




Pi 


a 


ADATA ( 2 




Y2 


= 


ADA T A ( 1 




P? 


a 


ADA T A ( 2 




Y3 




ADATA( 1 




P 3 


— 


ADA T A ( 2 




Y 4 


= 


ADATA ( 1 




P 4 


- 


AD A T A ( 2 




GOTO 


040 


0 35 


CONTINUE 


040 


DO 


045 I = 1‘ 




IF 


( 


ADAT A< 1 




Y5 


a 


ADA T A ( 1 




PS 


a 


ADAT A< 2 




Y 6 


a 


ADA T A ( 1 




P 6 


a 


ADA TA ( 2 




Y7 


a 


ADA T A( 1 




P 7 


S 


ADATA ( 2 




Y8 


= 


ADAT A ( 1 



YAUOFF 

tawoff 

ADATA (1,319) 
BDATA (1,319) 



*6 0 ) JI 

60 ) n 

t ISO , 1 



-65 

65 



JI ) GOTO 035 



,300,1 



- 1 ) 



0 45 



P8 = ADAT A ( l 
GOTO 0S0 
CONTINUE 



I > 

, I > 

,1 + 1 ) 
,1 + 1 ) 



050 XI < 1 ) 




Y 1 


XI (2) 


a 


Y2 


XI (3) 


- 


Y3 


XI (4) 


a 


Y 4 


X 1 ( 5 ) 


— 


Y5 


Xi (6) 


- 


Y 6 


XI ( 7) 


a 


Y 7 


XI ( 3 ) 


a 


Y8 


Y ( 1 ) 


a 


P 1 


Y (2) 


= 


P 2 


Y (3) 


3 


P3 


Y < 4 > 


a 


P 4 


r ( 5) 


a 


PS 


Y ( 6 ) 


a 


P6 


Y (7) 


a 


P7 


Y (8) 


3 


P 8 


Y AUA «. I 


I ) 


= 



(P 1 fP? + P3+P4 + P5 + P6 + P7 + PB ) / 
26, 12S, 1 



055 PA ( II ) 

DO 060 I 
J = I - 25 
XI ( J ) = BDATA( 1 , I ) 

060 Y (J) * BOAT A < 2 , I ) 

DO 065 I - 176,275,1 

J - I - 75 

'X 1 ( J ) = BDATA ( 1 ,1 ) 

065 Y <J> = BOAT A ( 2 , I ) 

NPNTS - 200 

CALL MAT 2 (NPNTS, 7 ,COEF ,-l) 



DO 070 I 3 1,9,1 



070 



mil 



WRITE < LI, 139) 

DO 07S I = 1,9,1 



Listing of Calibration Data Evaluation Program &EVALU. 
(Continued on next page.) 
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Figure 



-.•23v 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 
024* 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 
0 267 
0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 
C278 

0279 

0280 
0281 
0282 
0283 
0294 

0285 

0286 
0287 
0298 
0289 

Si?? 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 
0 30 0 
0301 
0 302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 



4RITE al.l a0) I 1 > l ' , 1 AWAi n , t AUbi I) 



080 



PBARO 

PSTAT 

PTOTAL 

XUELhE 

PHIhE 

DO 080 

XI ( I ) 

Y (I) 



/ 2 



( ADAT A < 2 , 3 19 ) ♦ BDATAC 2 , 319 ) ) 

P PAR O * 1 3 585 
( < ADATA< 2 , 318 ) + &nATA( 2 , 3 l 8 ) > / 

SORT ( l - (PTOTAL/PSTAT )**<-0 
ADATA( 1 , 320 ) 

» Y(WvI) 

.= _ P A (I) > < PBARO * 13.585 ) 



2) + (PBARO 
2657) ) 



* 13.585) 



CALL MAT2 <9, 5, COEF, -4) 




DX 
X0 

085 DP = <FNP<4 ,COEF .X0 )-FNP < 4. COEF , < X0+DX) ) ) 

IF (ABS(DP) .LT. 0.0001) GOTO 090 



DP X =-2 . *C0EF(3)*DX-6. *COEF < 4 > *X 0 *DX-3 . *COEF < 4 ) *DX*DX - 

* 12.*COEF(5)*XO*XO*DX-12,*COEF(5)*XO*DX*DX-4 . *COEF < 5 ) *DX**3 

= X0 - DP / DP X 



XO 

GOTO 085 
090 ASL 
ASR 
AAO 
PAMAX 
PSAL 
PSAR 
PSA 



= X0 

a XO ♦ DX 
a XO ♦ DX / 2.0 
a FNP ( 4 , COEF , AAO ) 
a FNP<4 ,COEF .ASL) 
a FNP ( 4 > C0EF , ASR ) 
a (PSAL ♦ PSAR) / 2.0 
PTOTAL = PAMAX 
BETA a (PAMAX - PSA) / PAMAX 
CPAMAX = (PAMAX - PSA) / (PTOTAL - PSA) 

IF ( IPRINT .NE. 2HYE ) GOTO 095 

WRITE (LI. 161) ASL , AAO , ASR , PSAL , PAMAX , PSAR , CPAMAX 

IF (1.0 .tit. 0 > WRITE <LO,i61) ASL , AA0 , ASR , PSAL , P AMAX , PSAR , CP AMAX 
095 CONTINUE 




100 



110 



DO 100 I a i 9,1 
Xl( I) = YAWB< I ) 

Y ( I ) a PB ( I ) > (PBARO * 13.58S) 

CALL MAT2 <9,5, COEF , -4 ) 

XO a 0 , 00 

DP X a FND ( 4 , COEF , X 0 ) 

IF ( ABS(DPX) .LT. O.OOOOl ) GOTO 115 



XO 



DP X / ( 2*COEF < 3 ) + 6*COEF(4)*XO ♦ 12*C0EF<5 ) *X0*XQ ) 



XO 



XO 

GOTO 110 
115 ABO 

PBMAX = FNP (4, COEF, ABO ) 

IF < IPRINT .NE. 2HYE ) GOTO 120 
WRITE (LI, 162) ABO, PBMAX 

IF (LO .tit. 0 ) WRITE (LO , 162 ) ABO ,PBMAX 
120 CONTINUE 

( PBMAX - PSA ) / < PTOTAL - PSA ) 
(CPAMAX -CPBMAX) / CPAMAX 
0 . 0 
0 . 0 
1,7,1 
1,7', 1 

XUEL + <COEKX< I 1 , 12) 

PHI ♦ (COEKX( 1 1 , 12) 

PHI * 180 . / 3 . 14159 
(( XVELttE - XU EL ) / XUEL ) * 100. 
PHIME - PHI 

YAUOFF ABO 



CPBMAX 
GAMMA 
XUEL 
PHI 

DO 125 
DO 125 
XUEL 
12S PHI 
PHI 

ERXUEL 
ERPHI 
ERYAW 



11 

12 



* GAhMA**(I2-l))*BETA**<Il-l) 

* GAMMA** ( 12-1) ) *BETA*f < 1 1 — 1 ) 



WRITE 
IF 



ITE (LI. 163) XUEL , PHI, ABO .XUELME, PHIME, ERXUEL, ERPHI .ERYAW, A 
( LO . NE . ft ) WR I TE <L6,16i) xOEL , PH I , ABO , XVELME , PHI ME , EftXVEL , ER 



*,ERYAW, AAO 
135 £0NTIN6e 

IF <15 .EQ. 55 ) GOTO 500 



AAO 

PHI 



IF (15 .EO. 
IF (15 .EQ. 
IF (15 .Eg. 
IF <15 .EQ. 



10 ) GOTO 210 
19 ) GOTO 220 
28 ) GOTO 230 
37 ) GOTO 240 



E— 2 . Listing of Calibration Data Evaluation Program &EVALU 
(Continued on next page.) 
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iU'!6t> CQ - 46 ’ C01 ° 2S0 


0321 


210 


AF I l.E C 1 ) = 2HA3 


0322 




BFILE(l) = 2H83 


0323 




I J I =15-9 


0324 




WRITE (LG, 604) 


0 325 




GOTO 260 


0326 


220 


AFILEC 1 ) * ?HA4 


0327 




PFILE(1> - 2H&4 


0328 




I J I =15-18 


0329 




UPITE ( LO ,604) 


033 0 




GOTO 260 


0331 


230 


AFILE( 1 ) = 2HA5 


0332 




BFILE< 1 ) = 2HPS 


0333 




I J I =15-27 


0334 




WRITE ( LO ,604) 


033S 




GOTO 260 


0336 


240 


Af I LE ( 1 ) = ?HA6 


0 337 




BFILE(l) * 2HB6 


0339 




I J I =15-36 


0339 




WRITE (00,604) 


034 0 




GOTO 260 


0341 


250 


AFILE( 1 ) = 2HA7 


0342 




PFILE< 1 ) = 2HB7 


0343 




I J I =15-45 


3344 




WRITE ( LO , 60 4 ) 


0345 




GOTO 260 


0346 


260 


if ( in ,rq. i ) goto 300 


0347 




IF ( I J I . EQ . 2 ) GOTO 310 


0348 




IF ( I J I .EQ. 3 ) GOTO 320 


0349 




IF < IJI .EQ. 4 ) GOTO 330 


C3S0 




IF ( IJI .EQ. 5 ) GOTO 340 


9351 




IF ( IJI .EO. 6 > GOTO 350 


0352 




IF ( IJI ,EQ. 7 ) GOTO 360 


0353 




IF ( IJI .EQ. 8 > GOTO 370 


0 35 4 




IF ( IJI .EQ. 9 ) GOTO 380 


0355 


300 


AF ILE ( 3 ) = 2H25 


0356 




AF I LE ( 2 ) = 2HKP 


0357 




GOTO 400 


0358 


310 


AF I LE ( 3 ) = 2H20 


0359 




AF I LE ( 2 ) * 2HKP 


3360 




GOTO 400 


0 361 


320 


AF ILE ( 3 > = 2H1S 


0362 




AF I LE ( 2 ) = 2HKP 


3363 




GOTO 400 


0364 


330 


AF ILE ( 3 ) = 2H10 


0365 




AF I LE ( 2 ) = 2HKP 


0366 




GOTO 400 


0367 


340 


Af I L E ( 3 ) = 2H05 


0368 




AF ILE ( 2 ) = 2HKP 


0369 




GOTO 400 


o370 


350 


AF ILE ( 3 ) = 2H00 


0371 




AF I LE ( 2 ) = 2HKP 


0372 




GOTO 400 


0373 


360 


AFILEC3) = 2H05 


0374 




AF ILE ( 2 ) = 2HKN 


0375 




GOTO 400 


0376 


370 


AF ILE< 3 > = 2H10 


0377 




AF I LE ( 2 > = 2HKN 


0378 




GOTO 400 


0379 


380 


AF I Lc ( 3 ) - 2H15 


0380 




AF I LE ( 2 ) = 2HKN 


0381 




G0 T 0 400 


0382 


400 


BF ILE ( 2 > = AF I LE ( 2 ) 


0.383 




PF 1 i_E ( 3 ) - AF ILE ( 3 ) 


0384 




GOTO 025 


0385 


500 


STOP 7777 


038b 




END 


3387 




REAL FUNCTION FNP (NORDER ,COEFF ,zx> 


9 388 




REAL COEFF ( 7 ' 


^38? 




Al = COEFF(NORDER +1 ^ 


,'3«0 




IF ( NORDER .EG. 0 > GOTO 02 


C 39 1 




DO 01 11 = 1 , NORDER , 1 


0 39£ 
0?95 


01 


I = NORDER *1-11 
A\= COEFF ( I >+fx*Ai 


0394 


02 


F*P = Al 


9 3°5 




RETURN 


0 396 




FV) 


0397 




REAL FUNCTION FND < NORDER COEFF , 2X ) 






K £ AL C u F - i 7 , 


0399 




REAL COEFFD ( 6 ) 


0400 




DO 01 1 = 1, NORDER. 1 


0401 


01 


COEFFD(I) = COEFF ( I ♦ 1 ) Jt I 


0402 




Al = COFFFiHNORDER ) 


0403 




NOR DR = NORDER - 1 


0404 




IF C NOR DR .EQ. 0 ) GOTO 03 


040S 




DO 02 11 = l,NORDR.l 


0406 




I = ( NOR DR + 1) -Ii 


0 40 7 


02 


Al = COEFFD< I )+ZX*Al 


0408 


33 


FND =A 1 


0 4 09 




RETORN 


0410 




END 



Figure E-2. Listing of Calibration Data Evaluation Program &EVALU 
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APPENDIX F 



CALIBRATION TEST PROGRAM TEST 

Chapter 5.2 describes the test and the test procedure 
used to verify the quality of the calibration in a freejet 
experiment. Although this experiment lacks the simulation 
of high frequency flow vector changes like those to be ex- 
pected in its application, it seems to be the most useful 
check of the calibration itself and the data reduction pro- 
cedure. While the set-up of the experiment and the data 
acquisition procedure were described in 5.2 already, details 
of computer program &TEST, which is used to perform the data 
acquisition and the data reduction, will be given herein. 

Like program &EVALU, this program first reads the cali- 
bration coefficient files into two arrays. It then asks the 
operator to key in the barometric pressure in inches of 
mercury. The data acquisition itself is performed in a D0- 
loop, interactively with the operator. Both probes are set 
to nine different yaw angles and data samples are recorded. 
The actual pressure and yaw angle values which are used 
are the averages of 30 single samples each, in order to ex- 
clude any influence of some flow irregularities. Once the 
data is taken, 'the data acquisition system is released from 
the HP 21-MX computer control and the data reduction is 
started . 
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The nine pressure values of the A-probe are approximated 
with a fourth-order polynomial as a function of the yaw an- 
gle. From this approximated curve pressure values PSAL, 

PSAR and PAMAX are derived which are used to calculate 
CPAMAX and BETA. The output of the B probe is approximated 
the same way and the pressure PBMAX is calculated from this 
curve. Using PBMAX and the results of the A probe, CPBMAX 
and GAMMA are established. The coefficients BETA and GAMMA 
alone are used to derive values of Mach number (or X) and 
pitch angle ( $ } . The yaw angle which corresponds to the 
pressure value PBMAX is assumed to be the flow yaw angle. 

It should be close to zero since the probes are aligned with 
the freejet for a zero yaw T angle, unless an "artificial" yaw 
angle has been superimposed on them as described in 5 . 2 

The calculated values are compared to those the freejet 
was adjusted to. In 5.2 the results of these comparisons 
were demonstrated already. 

Labeled common block : 

Common block identifier: Variable: 



DTA2 



XI ,Y 



Variable 



Type 



Description 



AAO 



AKULIT 



ABO 



Real Flow yaw angle derived from A probe 

Real Flow yaw angle derived from B probe 

Real Average value of 30 A probe pressure 



samples 
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Variable 


Type 


Description 


APRESS 


Real 


Single sample value of A probe pres- 
sure reading 


ASL 


Real 


Left-hand side yaw angle of A probe 
output 


ASR 


Real 


Right-hand side yaw angle of A probe 
output 


BKULIT 


Real 


Average value of 30 B probe pressure 
samples 


BPRESS 


Real 


Single sample value of B probe pres- 
sure reading 


COEF ( 7 ) 


Real 


Array to contain coefficients from 
2-D approximations 


COEUX (7,7) 


Real 


Array containing the coefficients of 
the 3-D approximation for the velocity 


COEUP (7, 7) 


Real 


Array containing the coefficients of 
the 3-D approximation for the pitch 
angle 


CPAMAX 


Real 


Maximum pressure coefficient A probe 


CPBMAX 


Real 


Maximum pressure coefficient B probe 


DP 


Real 


Pressure difference for two pressure 
values corresponding to two yaw angles 
which are separated by DX 


DPX 


Real 


First derivative of the function 
P A (a) - P A (a - Aa) 


DX 


Real 


Given spread in yaw angle between 
PSAL and PSAR 


GAMMA 


Real 


Pressure coefficient 


ICR 


Integer 


Cartridge reference number 


IDCB (144) 


Integer 


Data control block 


IDCBS 


Integer 


Control block length (of IDCB) 


IFILE (3) 


Integer 


Array containing file name 
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Description 



Variable 


Type 


ISECU 


I nteger 


ISIZE (2) 


Integer 


ITYPE 


Integer 


ICLR ( 3 ) 


Integer 


NOLF 


Integer 


PA ( 9 ) 


Real 


PAMAX 


Real 


PB (9) 


Real 


PBARO 


Real 


PBMAX 


Real 


PHI 


Real 


PSA 


Real 


PSAL 


Real 


PSAR 


Real 


PTOTAL 


Real 


XVEL 


Real 


XO 


Real 


XI (256) 


Real 


Y (256) 


Real 


YAWANG 


Real 


YAWKUL 


Real 



Security code 

Array to specify file dimensions 
Type of data file 

Command to clear line above cursor 

No line feed command 

Array for A probe pressure values 

Maximum pressure of A probe 

Array for 3 probe pressure values 

Barometric pressure inches of mercury 

Maximum pressure of B probe 

Pitch angle (calculated) 

Static pressure equivalent of A probe 

Pressure reading of A probe for a yaw 
angle 63° to the left of the flow 
aligned yaw angle 

Pressure reading of A probe for a yaw 
angle 63° to the right of the flow 
aligned yaw angle 

Total pressure 

Mach number equivalent dimensionless 
speed 

Starting value for the iteration to 
find PSAL and PSAR 

Data array for 2-D approximations 

Data array for 2-D approximations 

Single sample of yaw angle reading 

Average value of 30 yaw angle readings 
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Figure F-l. Flow Chart of Calibration Evaluation Program &TEST . 
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are F 



6TEST T = 0 0 0 0 4 IS ON CR00026 USING 00055 BLKS R=0000 
r TN4 , L 



000 1 
0002 

0003 

0004 
0 0 OS 
00 06 
0 0 07 
0 0 08 
GO09 
0010 
00 ll 
0012 
0013 
00 14 
0 0 1 5 
0016 

0017 

0018 
0 019 
0020 
0 021 
0022 

0023 

0024 

0025 

0026 
(5027 
002S 
0029 

070 

0031 

0032 

0033 

0034 
3035 

0036 

0037 
0 0 38 
0 0 39 
004 0 
004 1 

0042 

0043 

0044 

0045 

0046 

0047 
0043 

0049 

0050 

0051 
0 052 

0053 

0054 

0055 
0 056 

0 057 
3G53 
0059 
3 0 60 

0001 
C 0 62 
0 0o3 
0064 
3 0 o5 
0 066 
0 067 
0 0 68 
0 069 

0070 

0071 
0 0 72 

0073 

0074 
0 0-5 
3076 

0 0^7 

0078 



C 

C 

c 

c 

r* 

C 

c 

c 

c 

c 

c 

c 



PROGR Art TEST (3,99) 



THIS IS PROGRAM TEST FOR THE A-B PROBE SrSTEM. 

IT ACQUIRES DATA FROM THE A-P PROBES MOUNTED IN THE FREE- 
TET IN ORDER TO CHECK THE VALIDITY OF THE CALIBRATION. 

THE DATA IS NOT STORED, ONLY AN ONLINE OUTPUT IS AVAI- 
LABLE. 



COMMON / DTA2 / XI ,Y 

REAL XI (256) , Y(2^6) 

REAL COEF < 7 ) , COEK X ( 7 , 7 > ,C0EKP(7,7) 

REAL P A ( 9 > ,PB(9),YAU<?) 

INTEGER IDCB({44> .IFILE(3> ,ISIZE(2> 

INTEGER NOLF , I CLR { 3 > 

DATA IDCBS / 144 / 

DATA I TYPE / 1 / 

DATA I CLR / 0 1552 4B , 0 1SS1 53 , 0 0 6537 B / 

DATA NOLFS / 006S37B / 

101 FORMAT (' OUTPUT INPUT DATA TO ANY OTHER DEVICE ? ENTER NO 

* OR LU# >“/" " A 2 ) 

102 FORMAT ( “ DO YOU UANT AN OUTPUT OF THE CALIBRATION COE FF I C I ENT S ? " 

*/“ ENTER YES IF SO OR ANYTHING ELSE IF NOT'") 

103 FORMAT ( “ DO TOU UANT AN OUTPUT OF THE CONTROLL PARAMETERS?"/" KE 

*Y YES IF SO OR ANYTHING ELSE IF NOT!") 

104 FORMAT (//" THE DATA READ FROM FILE “3A2" ARE"/) 

105 format < - i r~~i — iv rersTnn 

106 FORMAT < “ I / J "Ii2,t>116> 

<“ “I3,7(iX.Fl5.6> ) 

( - I / J “112,6116) 

(- ENTER P PAR 0 IN INCHES HG 

(/“ RAW DATA :••/*■ ♦ A - KULITE P - KULITE "9X ” YAW" ) 

(" WHEN YOU ARE READY FOR YAW ANGLE # *12" HIT CR ' “ > 

( I3,3(2X,F10 .5) > 

A-PROBE APPROXIMATION RESULTS : YAW = “ 3 < 5X , F9 . 2 > / 1 



107 FORMAT 
10R FORMAT 

109 FORMAT 

110 FORMAT 

111 FORMAT 

112 FORMAT 

113 F OR MAT ( _ _ 

♦ ESSURE (INCH H20 > = "3 ( 3X , F 1 1 . 6 ) /29X - CPAmAX = “F0.4/> 

114 F OR MAT ( / ” B-PROBE APPROXIMATION RESULTS : YAW0 = "F5.1" PRES 
*< INCH H20 > = " Fa . 2/ ') 

11^ F ORMAT ( " AVERAGE VALUE RESULTS FROM THE A- B SYSTEM :"/ /5X " BE T 

* AMM A "5X n X ve 1 "4X "P l TCP M 6X "Y(iw“/3< F? . 5) ,2(2X , F7.2) ) 

149 FORMAT ( (3A2> ) 

150 FORMAT (12) 

1111 FORMAT ( " STATEMENT * 

1001 FORMAT ( •T1R7M3A0H0T3 
1501 FORMAT ( "CA" ) 

LI = LOGLLK ISESSN > 

005 WRITE (LI, 101 ) NOLF 

READ (LI, “ 

WRITE (LI, 

IF ( I DOM 
CALL CODE 

READ < 1 DUM ,150) LO 



0 \ r : 



6X “ PR 
URE 
A ” 4 X “ G 



“14" ERROR # 



• ) 



149) IDUM 

149) ( ICLR ,11 = 1,2) 

.EO. 2HN0 > GO TO OlO 



"FI! 



DETECTED-) 



IF ( 


LO 


.EQ. 


1 


) GO 


TO 


015 


IF ( 


LO 


.e3. 


6 


) GO 


TO 


015 


IF ( 


LO 


.EO. 


18 


) GO 


TO 


0 1 5 


GO TO 


i 005 












LO = 


0 












IF ( 


LO 


.EQ. 


LI 


) LO 


* C 


) 


WRITE 


: (Li 


.102) 










READ 


(LI , 


,14?) 


IPR 


INI 






WRITE 


: (Li 


,103) 










R t AD 


(Li ; 


,149) 


IPR 


* INT 







READ FILE SIFX22 FROM DISC INTO ARRAY COEKX(7,7). 



IF Il£ ( 1 ) = 2H$t 

I F I LE ( 2 ) = 2HFX 
I F I E ( 3 ) = 2H43 
I5ECU = 00 
ICR = 26 

CA^L OPEN ( IDCP . IERR . IF1LE , TO p TN . ISECU . ICR , IDCBS > 



•2. Listing of Program to Test the Quality of the Calibration: &TEST 

(Continued on next page.) 
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007? 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 
008? 
0090 
00 ? i 
0 0?2 
0 0?3 
0 0 V 4 
0 095 
00?b 
0097 
0 0?8 
009? 
0100 
0101 
0102 

0103 

0104 

0105 

0106 
0107 

0 109 
0109 

01 1 0 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 
012 ? 
0 130 
0131 
0 132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 
01A2 

0143 

0144 

0145 

0146 
0 147 
0148 
014? 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 



JJ * 1 

IF ( I ERR .LT. 0 ) WRITE (LI, 1111) JJ,IERR 
CALL READF ( IDCB, IERR , COEKX , 98,LEN, 1 ) 

JJ = 2 

IF < IERR .LT. Q ) WRITE <LI,iiii> JJ,IERR 
CALL CLOSE < I DCB , IERR , 0 ) 

JJ = 3 

IF ( IERR .LT. 0 ) WRITE (LI, 1111) JJ,IERR 
IF (IPRINi ,NE. 2HYE) GOTO 025 




WRITE (LI, 104) IF ILE 
IF ( LO .NE. 0 ) WRITE <LO,104) I FILE 
WRITE ( L 1 , 1 0 5 ) <11, 11*1,7) 

IF ( LO .NE. 0 ) WRITE <LO,106) <11, 11*1,7) 

DO 020 11*1,7,1 

IF ( LO .NE. 0 ) WRITE (LO.107) 1 1 , < COEKX( 1 1 , J1 ) , Ji*i ,7 , 1 ) 
020 WRITE (LI, 108) 1 1 , ( COEKX < 1 1 , Jl > , J 1 = 1 , 7 , 1 > 




025 IF ILE < 1 ) * 2HS I 
IF ILE ( 2 ) * 2HFP 
IF I LE ( 3 ) 

CALL OPEN 
JJ = 4 
IF ( IERR 



2H43 

(I DCB, IERR ,IFILE, IOPTN,ISECU,ICR , IDCB5) 



.LT. 0 ) WRITE (LI, 1111) JJ,IERR 
CALL READF < I DCB , I ERR , COEKP , ?8 , LEN , 1 ) 

JJ * 5 

IF < IERR .LT. 0 ) WRITE <LI,ilii) JJ,IERR 
CALL CLOSE < I DCB , IERR , 0 ) 

JJ * 6 

IF ( IERR .LT. 0 ) WRITE (LI, 1111) JJ,IERR 
IF (IPRINI .NE. 2HYE) GOTO 035 




WRITE < L I , 1 0 4 ) IFTLE 
IF ( LO .NE. 0 ) URITE <LO,104) I F ILE 
WRITE (LI, 105) (11,11*1,7) 

IF ( LO .NE. 0 ) URITE (LO,i06) (11,11*1,7) 

DO 030 11*1,7,1 

IF ( LO .NE. 0 ) WRITE (L0.107) 1 1 , ( COEKP < 1 1 , J 1 ) , Ji = i ,7 , 1 ) 
030 WRITE < L I , i 08 ) 1 1 , ( COEKP < 1 1 , J 1 ) , J 1* 1 , 7 , 1 ) 

035 CONTINUE 




URITE (LI, 109) 

READ (LI, *> PBARO 
CALL ABRt (7.2) 
CALL R MOTE < 10) 
CALL RMOTE ( 15) 

URITE (10,1001) 

WRITE (15,1501) 

URITE (10,110) 

DO 050 I * 1,9,1 
040 URITE (LI , 1 1 1 ) I 

READ (LI, 149) IDUtt 



IF ( IDUM .NE. 2H 
AKULIT 
YAUKUL 
BKULIT 
DO 045 
YAUANG 



) GOTO 040 



BPRESS 

APRESS 

AKULIT 



= 0.0 
* 0,0 
* 0.0 
= 1,30,1 

= SCANR (15,22,01) 
* SCANR (15,23.01) 
= SCANR ( 15.24, 0 1 ) 
= AKULIT + APRESS 



Figure F-2. 



Listing of Program to Test the Quality of the Calibration: &TI 

(Continued on next page.) 
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ure F 



0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 
0167 
0 168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 
0135 
0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0 1 95 

0196 

0197 

0198 

0199 

0200 
0201 
0202 
0203 

0 20 4 

0205 

0206 

0207 

0208 
C 209 
0210 
0211 
0212 

0213 

0214 

0215 

0216 
0217 

• 0219 
32 19 
0 22 0 
0221 
0222 
3223 
' 0224 
. 0225 
0226 
0227 

3228 

3229 
.23 0 
3231 
0232 
3233 

0234 

0235 
3236 

1 237 
0238 



YAUKUL = YAUKUL ♦ YAUANG 

045 BKULIT = BKULIT ♦ EGRESS 

PA < I ) = AKULIT / 30 

PB (I> = BKULIT / 30 

YAU(I) - YAUKUL / 30 

050 WRITE <LO,112> I ,PA(I) ,PB(I),YAW(I) 
CALL CLEAR ( 7, i ) 

CALL LOCL ( 7) 




DO 055 I = 1,9,1 
XI ( I ) = YAW ( I ) * 10000 

055 Y ( I > - (PA ( I ) * 1 0000 ) 

CALL MAT2 ( 9 , 5 , COEF , -4 ) 



♦ ( PBARO « 13.S85 ) 




DX * 126.0 

X0 * -70.0 

060 DP ’ (FNP ( 4 . COEF .X0 ) - FNP ( 4 , COEF , ( X 0+DX ) > > 

IF (ABS(DP) .LT. ti.OOOl ) GOTO 065 

DP X = ~2.0*COEr(3)*DX-6.0*COEF<4>*xn*DX-3.04fCOFF(4>*DX*DX- 

* 12. 0*COEF (S)«X0*X0*DX-l2*COEF(5>«X0*DX*DX-4. 0 *C OEF ( 5 ) *DX t *3 



X0 

GOTO 060 
065 ASL 
ASR 
AA0 
PAMAX 
PSAL 
PSAR 
PSA 

PTOTAL 
BETA 
CP AMAX 



= X0 - DP / DPX 



- X0 

= XO DX 
= XO +• DX / 2.0 
= FNP < 4 , COFF AA 0 ) 

= FNP<4 , COEF , ASL) 

= FNP <4, COEF ASR) 

= (PSAL + PSAR > / 

= PAMAX 

* (PAMAX - PSA ) / PAMAX 
= (PAMAX - PSA ) / ( PTOTAL - PSA ) 

IF ( IPRINT .Nt. 2HYE ) GOTO 070 
WRITE (LI, 113) ASL , AA0 .ASR .PSAL , PAMAX , PSAR ,CPAMAX 

IF (LO . Nt . 0 ) WRITE (LO,ll3> ASL , AAl) , ASR , PSAL , P AMAX ,PSAR , CP AMAX 
070 CONTINUE 



i. 0 




DO 075 I = 
XI ( I > 

075 Y (I) 

CALL nAT2 ( 
XO 

080 DPX 

IF < ABS ( DP 
XO 

GOTO 080 
065 APO 

PRMAX 
IF ^ IPPINT 
WRITE < L I , 1 
IF < LO . NE 
090 CONTINUE 
CPDMAX 
GAMMA 
XVEL 

PHI = 

DO 095 11 = 
DO 09S 12= 
XVEL 
095 PHI 

PHI = 

WRITE <LI,1 
IF ( LO . NF. . 
STOP 7777 
END 

REAL FUNCTI 
REAL COEFFv 



1.9,1 

YAW (I) * 10000 

( P B (I) * 10000 
9.5. COEF , -4 ) 

0 . do 

FND( 4 , COEF . X0 ) 
X) ,L i . O.flOOOl 



) ♦ < PBARO * 13.585 ) 



) GOTO 085 



XO - DPX / ( 2<C0EF ( 3 ) ♦ 6*COEF<4)*XO + 12*COEF ( S ) *X0«X0 ) 
XO 

FNP (4 , COEF .ABO ) 

.NS . 2HYE ) GOTO 090 
14) ABO, PRMAX 

. 0 ) WRITE ( LO ,114) ABO.PBMAX 

< PBMAX - PSA ) / (PTOTAL - PSA ) 

(CPAMAX - CPBMAX ) / CP AMAX 
0 . 0 
0 . 0 
1,7,1 
1,7,1 

XVEL ♦ <COEKX( II , 12) * GAMMA* *(12-1) )* BETA **<Il-l> 

PHI + ( COEKP< 1 1 , 12) tGAMMA** ( 12- 1 ) ) *BETA **(lt~l) 

PHI * 180 / 3 . 141^9 

1S> BETA, GAMMA XVEL. PHI. ABO 

0) WRITE (L0,115> BETA, GAMMA, XVEL, PHI , ABO 

ON FNP (NORDER ,COEFF .ZX) 

") 



-2. Listing of Program to Test the Quality of the Calibration: 
(Continued on next page.) 
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j 

I 

I 



0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 
0250 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 
0289 

o°ll? 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 



01 

02 



01 



02 

03 



A 1 x COF FF ( NORDER + 1 ) 

IF ( NORDER .EQ. 0 ) GOTO 02 

DO 01 II = 1 , NOR DER , 1 

I = NORDER ♦ 1 - II 

Ai - COEFF ( I ) +ZX4A 1 

FNP * Al 

RETURN 

END 

REAL FUNCTION FND ( NOR DER , COEFF , ZX ) 
REAL COEFF (7) 

REAL COEFFD ( 6 ) 

DO 01 1 = 1, NOR DER , 1 
COEFFD ( I ) COEFF (I+1)*I 
Al = COEFFD(NORDER > 

NOR DR = NORDER - 1 

IF < NOR DR .EQ. 0 > GOTO 03 

DO 02 II * 1 , NOR DR , 1 

I = ( NOR DR ♦ 1) - 1 1 

Al - COEFFD( I )+ZX*Al 

FND =A1 

RETURN 

END 

REAL FUNCTION SCANR (LU, ICHAN, K) 



Close relay ICHAN on scanner LU and read the instrument 
indicated 6 y K . 

Author; Robert N. Geopfarth 

Date; February 31 , 1979 

Detailed proqram description is available in TXCO log; 
variables ar e : 

LU ... LU# of desired scanner (8 or 15). 

ICHAN ... Scanner channel (integer). 

IC ... Scanner cnannel (ASCII), 

K ... Instrument code ( DUM = 1 / Counter * 2 ). 



*, Closes scanner and reads DVM, counter. 
101 FORMAT (A2) 



801 FORMAT ("C") 

1001 FORMAT CT3T3") 

1201 FORMAT CT") 

1501 FORMAT ("C") 

URITE ( 8, 801) 

WRITE (15 1501) 

IC = ICON l I CHAN , 0 ) 

URITE (LU, 101) IC 
GO TO (01,02) K 

01 CALL TRIGR (10) 

READ <10, *) DUM 

CALL TRIG!* (10) 

READ (10, *) SCANR 

GO TO 03 

02 URITE (12,1201) 

READ (12, *> SCANR 

03 URITE (LU, 801) 

RETURN 

END 

INTEGER FUNCTION ICON(I,N> 
IC= I +N 

IF ( IC . LT .10) GO TO 100 
CALL CODE 
UR ITE ( ICON, 60) IC 
60 FOR MA T ( I 2) 

RETURN 

100 ICON=IC+30060B 
RE1URN 
END 



the 



Figure F-2. Listing of Program to Test the Quality of the Calibration 



APPENDIX G 



CALIBRATION DATA (C_ D ) APPROXIMATION PROGRAM &RES10 

POo 

As shown in Fig. 19, CPBO is well behaved as a function of 
pitch angle and Mach number as well. Thus it is approximated 
as a function of these two variables. Program SRES10 handles 
this procedure. It is in principal again the same program as 
&REST8, like &REST9, so that a detailed program description 
will not be given here. However, it shall be mentioned here 
that the data which is the basis of the approximation is 
contained in data file A3NEW2. This is an indication that 
this file contains all the data necessary to represent the 
whole calibration. 

For the evaluation of the quality of the approximation, 
errors are printed out as were for &REST8. These are calcu- 
lated as : 



Cp B0 





Cp B 



Om 



100 



index m = known from measurement 
index c = calculated 



The variation in the order of polynomials for the approxi- 
mation was changed in two DO-loops also and the one for the 
best error results chosen. Those coefficients are stored in 
file MISTCP on cartridge 26. Figure G-l shows the coefficients 
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and the associated errors. The highlighted area gives the 
range of Mach number and pitch angle which will most likely 
occur. Thus the error distribution within there is most 
important. 

Figure G-2 gives a listing of program &RES10. The simi- 
larities to programs &REST8 and &REST9 are obvious, so that no 
flow chart or further explanations are given. 
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Table G-I. Coefficients and errors for Cp o3 approximation depending on 
X vel and <p . 
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6RFS10 T=00004 IS ON CR00Q26 USING 00024 BLKS R=0000 



000 1 
0 0 0 ? 
0 0 03 
00 04 
0 0 OS 
00 06 
0 0 07 
U U 08 
0 0 0? 
0010 
00 11 
0012 

0013 

0014 
0 01S 
0016 
0 017 
0018 
001? 
0 020 
0021 
0022 

0023 

0024 

0025 

0026 
0 027 
0 020 

0029 

0030 

0031 
0 0 32 

0033 

0034 
0 0 35 
0 036 
0 0 37 
0 0 38 
003? 
0 040 
0041 
004? 
0 0 4 3 

0044 

0045 
0 046 
0 0 47 
0048 
004? 
0 0 SO 
0051 
0 052 
0 0 S3 
0054 

ooss 

0 OSt? 

nos? 

0058 
oosv 
0060 
0 0 61 
0062 
0063 
0 0 o4 
0065 
0 066 
0 06 V 
0 068 
0 06* 
0 0 7 0 
0071 

OP? 

0 0 '3 

0 0 ' T 4 
007^ 
0 0" 6 



FTN4 . L_ 

C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



PROGRAM RES1 0 (3,9?) 



This is program RES(tore) 10. 

There nre sone programs REST , which in principle do nil the 
sane : They restore calibration data of a probe into a forn 
that can be used to approxinate This data by a calibration 
surface . 

Ihe software used for The surface approx moTion is available 
in The Tur h opr opu lsi on Laboratory Binary L ibr ar y ( TPLBL ) . 

See NPS67-80- U U 1 CR for further reference. 

In this particular case the calibration data of the 

N E U A - AND B-PROBES 

are approximated * 

CpOB = f (PHI . XUEL ) 



14? 
60 1 

602 
60 3 

604 

605 

606 
1111 



COMMON / MATRX / A , B 

COMMON / SUMME / PHI , XUEL .CROP 

REAL PLOTR ( 256 ) . A ( 49 , 4? ) . B < 4? ) , COEFF ( 7 . 7 > .D< lfl ,54) 

INTEGER I DCB ( 144) . IF I L E ( 3 ) , I S I ZE (2) , NOCR (2 ) . I CLP ( 3) 

REA! XUEL ( 16, 16). PHI ( 1 6 , 1 6 5 , CP 0B ( 16.16) .R(lt) 

DATA PI /3 . 1 4 1S?3/ 

DATA IFILE /?HAB , 2HNE . 2HU2/ 

DATA NOCR /U00 0J3B , 0404338/ 

DATA ICLR /UlS524H,0l551Sb,006S37B/ 

DATA ISECU /0/ 

DATA ICR /26/ 

DATA I TYPE /i/ 

DATA IGIZE /3.120/ 

DATA IDCBS / 1 4 4 / 

FORMAT <" SELECT SET OF COEFFICIENTS FOR BEST RESULTS » " / M ENTER M 
*OR DER AND NURDER NOU : - ) 

FOR MAT ( ” " ( ( 3 A 2 ) ) > 

FORMAT (///” COEFFICIENTS FOR THE CALIBRATION SURFACE STORED IN FI 
*L E : “3A2/ ) 

FORMAT ( (3X , 16( 6X . 12) ) ) 

FORMAT < IX , I?, 16( lx ,F7 , 3) /3(3X . 16( IX ,F7 . 3>/> > 

FORMAT <///“ ERRORS AT EACH POfNT ('/.)"/) 

FORMAT ( ( 3 X , 1 0 ( 1 1 X , 12) ) ) 

FORMAT (1X,I2,7(2X,F11.6)> 

FORMAT < “STATEMENT ♦ M I4 " ERROR » ”14 “ ENCOUNTERED '") 

LI = LOGLU( 1 ) 



READ DATA FILE ABNEU . 



CALL OPEN < IDC8, IFRR . IFILE, IOPTN, ISECU, ICR .IDCB5> 
JJ = l 

IF ( I ERR .LT. 0 ) URITE (LI. 1111) J J , IERR 
CALL READF ( I DCB , I ERR , D , 1 080 . LfN , 1 ) 

J.) = 2 

IF ( IFRR .LT . 0 > URITE (Ll,illl) JJ,IERR 

CALL CLOSE < IPCB, IERR ,0 > 

JJ - 3 
IF ( IERR 



oos 

010 



i.r 

do oo^ i 

DU OOS J 
I J 

xu el (i.j> 

IF ( J CO 
PHI <I,J) 
CPOB (I , J ) 
NMAfH o 

N D ITCH = 9 
CONTINUE 



. LT . 
0 



0 ) URITE (LI, 1111) JJ.IERR 



1,6 1 

1,9,3 
1.1 * 1 
D ( 3 . I J ) 

> D ( 4 , I J ) ^ D ( 4 I J ) 
D ( 4 , I J ) * PI / (8U 

D < 6 , I J t 



0.00001 



calculate CALIBRATION surface COEFFICIENTS 



Figure G-l. 



Listing of 
(Continued 



Program to Approximation C 
on next page.) 



V alues : 



&RES10 
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0079 

0080 
0081 

S0I3 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 
0099 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 
OHS 
0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 
0 14o 

0147 

0148 



1,6 , 1 
1 , 6,1 

SU 

1,7,1 

1,7,1 

0.0 



IJI = 0 
DO 060 HU 
DO 060 NU 

mm 

01S CONTINUE 
DO 020 I 
DO 020 J 
020 COEFF < I . J) 

M=HORDER+l 
N*NORDER M 

CALL COhAT < A , B , h , N , NNACH , NP I TCH ) 

NEGUS=H*N 

CALL ELGJ (NEQUS) 

I HO 

DO 02S I = 1 ,M, 1 
DO 025 J = 1 , N , 1 

II = Ii + i 
025 COEFF ( I , J > = B( II ) 

IF ( IJI NE. 1 ) GOTO 030 

I F I LE < 1 ) = 2HMI 
IF ILE ( 2 ) = 2HST 
I F ILE ( 3 ) = 2HCP 

CALL GREAT < I DCB , IERR , IFILE , ISIZE , I TYPE , ISECU , ICR , IDCBS ) 
JJ « 4 

IF ( TERR .LT. 0 ) URITE (LI.llll) JJ,IERR 
CALL OPEN ( IDCB, IERR, IFILE, IOf^TN, ISECU, ICR, IDCBS) 

JJ = 5 

IF ( IERR .LT. 0 > URITE (LI.llll) JJ,IERR 
CALL UR I IF ( I DC 8, IERR, COEFF, 985 
JJ = 6 

IF ( IERR .LT. 0 ) URITE (LI, 1111) JJ,IERR 
CALL CLOSE ( IDCB, IERR , 0 ) 

JJ « 7 

IF ( IERR .LT. 0 ) URITE (LI, 1111) JJ,IER« 

URITE (6,601) IFILE 
030 CONTINUE 

URITE (6,605) (J,J*l,N,i> 

DO 03S 1 = 1 ,h,i 

035 URITE (6,606) I , ( COEFF ( I , J ) , J= 1 , N , 1 ) 

WRITE (6,605) ( J,J=1 ,N,1> 



OVERWRITE DATA ARRAT WITH CALCULATED DATA 



URITE (6,604) 

URITF (6,602) ( J . J=1 , NP ITCH , 1 ) 

DO 050 I * 1 ,NHACH, 1 
DO 045 J = 1 , NP I TCH , 1 
SUN = 0. 

DO 040 II = 1 ,H , 1 
DO 040 Jt = 1 ,N, 1 

040 SUH = SUH+(COEFF(l 1 ,J 1 >*XVEL< I , J>**( Ji-i ) )*PHI ( I , J ) ** ( 1 1 -1 ) 
0 45 R < J ) = ( (CP0B( I , J)-$UM>/CP0B( I J) )*100 
OSO URITE (6,603) I , ( R ( J ) > J = 1 , NP I TCH , 1 ) 

WRITE (to, 602) ( J,J=1,NPITCH. D 

IF (IJI .EQ. 1 ) GOTO 06S 

060 CONTINUE 

URITE (LI, 101) 

READ (LI, *> hORDER ,NORDER 
IJI = t 
GOTO 015 
06S STOP 7777 
END 



Figure G-l. Listing of Program to Approximation C poB Values: 



&RES10 
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APPENDIX H 



TEST DATA ACQUISITION PROGRAM &ABKUL 

Program &ABKUL is rather complex. The amount of data 
gathered and stored is quite extensive. Since the data re- 
duction procedure is faster if only one file contains all 
data, the use of a single data file seems to be justified. 

Before any data acquisition is performed, the file to 
contain the data is created under a name given by the opera- 
tor. This way it is ensured that there is sufficient space 
on the cartridge to store the file. Once this is done, the 
data array (DATA ( 20 , 256) ) is preset with zeros and the inter- 
face bus and devices are set to remote control. The first 
part of the data acquisition is for the first on-line cali- 
bration. Both Kulite probes are at the same radius as the 
rotor exit combination probe and all probe yaw angles are 
fixed to the same angle given by the combination probe. This 
one is assumed to be the time averaged flow yaw angle. The 
reference pressure on the back side of the Kulite transducers 
is changed to a known value and a set of data is recorded. 
This data includes the pressure readings of the Kulite probes 
and their reference pressure as well as all the information 
available from the combination probe. Once this data is 
collected, the Kulite probe reference pressure is changed to 
another value and another set of data is acquired. This 
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procedure is carried out for a total of four different refer- 
ence pressures, allowing sufficient time after each pressure 
change for the measuring system to adapt to the new pressure. 
After the last pressure is applied, the reference pressure is 
reset to barometric pressure and the data acquisition for the 
first on-line calibration is completed. During the data 
acquisition the recorded data is printed out immediately so 
that its quality can be evaluated right away. 

Before the acquisition of high speed data is performed, 
the operator is asked to specify the number of yaw angles he 
wants the Kulite probes to be moved to. A maximum of nine is 
possible and this number should always be favored to ensure 
sufficient data to cover a range of 160° in yaw angle as ex- 
plained in 6.3. The program asks the operator to set both 
Kulite probes to the first yaw angle and to initiate the data 
acquisition. In a first DO-loop data from the type A probe 
is gathered for 256 consecutive circumferential positions. 
Each of the 256 values is the average of 40 single samples 
which are acquired on consecutive revolutions. In a second 
DO-loop the same kind of data is acquired from the B probe. 
Since the two probes are mounted on the compressor case wall 
separated by 270° circumferentially, the trigger numbers 
where the data acquisition starts are separated by a number 
of 1728 cts.=270° for the two probes. (The trigger device 
splits 360° up into 2304 single counts. Both probes acquire 
data for 256 counts, 40° respectively. Since the rotor has 
18 blades, two blade passages are covered.) 



155 



When the second DO-loop is done, steady state data from 
the combination probe and the Kulite probes is acquired. This 
data is of the same kind as that for the on-line calibration 
data and is in general very helpful for checking purposes. It 
is printed out as soon as it is acquired. From the high speed 
data the overall average values for all 256 positions from A 
and B probes are derived and printed out also. 

The DO-loop is continued by the operator initializing the 
acquisition for another yaw angle setting of both probes. 

When the data for all desired yaw positions is acquired, 
a second on-line calibration is performed. The results are 
printed out immediately so that they can be compared to those 
from the first calibration and obvious errors can be detected 
right away. From the two on-line calibrations slopes and 
intercepts are derived for both probes as described in 6.3. 

Finally the data is stored in the assigned file. 

Figure H-l gives a flow chart of program &ABKUL, while 
Fig. H-2 is a listing. 



Variables 


Type 




Description 




AVRGA 


Real 


Average 


value of 


A probe 


output 


AVRGB 


Real 


Average 


value of 


3 probe 


output 


BUFR (1664) 


Integer 


Buffer array 






DATA(20, 256) 


Real 


Data array 






DCA 


Real 


DC-level 


reading 


of A probe 


DCB 


Real 


DC-level 


reading 


of B probe 
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Variables 
E 

FSVLTG 

IBUFF (99) 
IBLADE 

ICLR ( 3 ) 

I COUNT 

ICR 

IDCB (144) 
IDCBS 
IDUM 
IFILE (3) 

IL 

ISECU 

IRPM 

ISIZE (2) 
ITYPE 
LI 
LO 

MASK 

NOLF 



Type 

Real 

Real 

Real 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 



Description 

Voltage difference between combination 
probe and reference temperature probe 
thermocouple 

Voltage reading of combination probe 
thermocouple 

Calibration factor Kulite probe 
reading 

Array for Kulite sample values 

Number of compressor rotor blade pairs 
to be investigated 

Command to clear line above the cursor 

Number of acquired data points (1 
through 256) 

Cartridge reference number 

Data control block 

Data control block length 

Dummy variable 

Array containing file name 

Total number of words stored in data 
file (two words for one value) 

Security code 

Rotational speed derived from trig- 
gered measurements 

Array to specify fill dimensions 

Type of data file 

Input device number 

Output device number 

Masking variable 

No line feed command 
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Variables 



Type 

PBARO Real 

PCAL Real 

PREF Real 

PI, P23, P4 Real 

RPM Real 

SECON Real 

SLOPE Real 

TARE Real 

X ( 4 ) Real 

XIMA Real 

XIMB Real 

XIMC Real 

Y ( 4 ) Real 

YAWA Real 

YAWB Real 

YAW C Real 

YAWP Real 



Description 
Barometric pressure 

Calibration pressure for the Scanivalve 

Reference pressure for the Kulite 
probes 

Pressure readings for the combination 
probe 

Compressor speed as read from counter 

Intercept of either A or B probe 
calibration 

Slope of either A or B probe 
calibration 

"Zero drift" for Scanivalve transducer 

Array for on-line calibration data 

Immersion of A probe 

Immersion of B probe 

Immersion of combination probe 

Array for on-line calibration data 

Yaw angle of A probe 

Yaw angle of B probe 

Yaw angle of C probe 

Total number of yaw positions for 
the A and B probe 
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START 




Fiqure H-l. Flow Chart of Data Acquisition Program &ABKUL . 
y (Continued on next page.) 
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Figure H-l. Flow Chart of Data Acquisition program &ABKUL. 
(Continued on next page.) 
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6ABKUL T = 0 0 0 0 4 IS ON CR00026 USING 00 061 BLKS R = 0000 
FTN4 ,L 



000 1 
u002 
0 003 
0 00 4 
0 0 0S 
00 06 
0 0 0 7 
0 0 03 

0009 

0010 
0011 
00 12 

0013 

0014 
0 0 IS 
0 C 1 6 

0017 

0018 
CO 19 
0 020 
0021 
0022 

0023 

0024 

0025 
U 026 
0 027 
0028 
0 0 29 
0030 
1)031 
0032 
JO 33 
0034 
r.03S 
l» 0 36 
0 0 37 
0 0 38 

0 39 
040 
0 041 

0 0 42 

1 0 4 3 
0 0 4 4 
j 0 43 
0046 

047 
.'0 48 
049 

oso 

5051 

5052 



101 



102 



103 

104 



105 

106 



053 


107 


: 054 




OSS 




056 


108 


057 


109 


058 




059 


110 


0 6 0 




Obi 




u 62 


1 1 1 


J 63 




064 




365 




j 06 




u67 


112 


368 




69 


148 


j 70 




071 


140 


t *7 ry 

075 




C74 


1001 


07 S 


12 01 




15 d i 


077 




'78 


1111 



PROGRAM ABKUL (3,99) 

This is proqron ABKUL(ite). 

It performs an online calibration of the A and B kuliteprobes 
and a data acquasition for 7 yau positions of these probes as 
well. 



Author 

Date 



Friedrich Neuhoff 
July 20, 1901 



XXX*X*XXX*Xl**X**XX*XXX*XXXXXXXX*XtXXXXXXXX*XXXXXXXXXXXXXXXX*fXX*** 



NOTE : IF THE "C" WILL BE REMOVED FROM THE STATEMENTS 
CONTAINING ASTERISKS IN COLUMN 73 AND HIGHER, 
NO STEADY STATE DATA JILL BE ACCUIRED AND LNLY 
ONE SET OF HIGH SPEED DATA JILL BL TAKEN' 



DIMENSION IBUFF ( 99) , IGCB( 192) 

REAL DAT A (20 .236) ,X(4) ,Y(4) , AVRGA,AVRCB 

INTEGER BUFR (1&64) 

INTEGER NOLF, IDCB( 144) , ICLR (3) , IFILE ( 3 ) , I5IZE ( 2 ) 
DATA IDCBS y 

DATA W ° 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



I TYPE 
IL 

I C 1 7E < 1 ) 

IS IZE < 2 > 

NOLF 

ICLR 

MASK 

F3VLTG 



144/ 

W, 



/ 

/ 28 / 

/ 1 / 

/I 024 0/ 

/ 80/ 

/ 128/ 

/ 006S37B/ 

/ 0l5524B,01551SB,006S37B/ 

i *7 *7 *7 r\ nu / 



/ 1777 0 0 B/ 

/ . 1E01/ 

FORMAT (’ This is program ABK UL ( i t e ) . '* / " It first performs a data 
Xacguasition tor an online calibration of the A and B "/" probes."/ 
X" Then it takes paced data from the probes at 7 different yaw posi 
XTions "/" interactively with the operator. At the end another set 
xof data for an online"/" calibration is accqu ir ed ' "//" The whole r 
tou data is stored in one file'") 

FORMAT (////" The online calibration shall be performed now'"/" It 

* allows four different reference pressures!"//" When the first ref 
X. pressure is applied correctly., key GU'") 

FORMAT <///. 36X " Online calibration'*///) 

FOR MAT ( l3X*Immer .comb. c omb . ** 1 OX "P 1 • 9X "P23 " 1 0 X "P 4 - /3X " P o in t 

X* Imner . A pr . vaw A pr . ' 9X "DCA " 8 X "P r e f " 1 0 X " T T “ / 1 3X " I mme r . B pr . 

X yaw D pr . c 9X , DCB"9X ,, RrM"9X"DT t *'///) 

FORMAT (/12X ,5(2X.F10 . 6 )/SX , 12 , SX ,S <2X ,F 1 0 . 6 > /I ?X , S< 2X .F 1 0 . 6 ) ) 
FORMAT < *’ Apply the next ref. press, and key GO when tne condition 
*s are stable ^/' 1 enough for the next reading'*) 

FORMAT ( " 1 st online calibration done'"/" Reset the ref press, for 

* the high speed data acquasition'"/" Enter the number of different 

* vaw anqles you want."/ “ Hit CR after that to continue!") 

FORMAT w///36X"Averaqe values from paced run"///) 

FORMAT <" Adjust both kulite probes to yaw anqle n u mbe r " 1 2/ " Key 
*GO when this is done'") 

FORMAT ( /24X'*A probe"30X"B p r obe "/25X "31 ope " 6 X " I n te rcep t t "l0X"Slo 
Xpe " 6 X" Intercept "/47X" X"/" 1st ca 1 1 br a t i o n "2 ( 3.X . F 12 . 6 ) " * "?(3X,F12 
x . 6>/4~X"*"/" 2nd calibration"2(3X,Fl7.6) " * "2 ( 3X , FI 2 . t> ) ) 

FORMAT ( ** Second online calibration done'"/" Reset the ref. press, 
x and consider the data acquasition to he completed'"//" Compare th 
*e results of the two online calibrations and check for drift'"/** I 
xf the drift can be accepted, key m the file name you want the dat 
X a " / " to be stored in'") 

FORMAT (" Averaqed values paced output : A probe 

*: "F10 .5) 

FORMAT (" Output input data to cnv other device? 

* or LUt '•'/** "A2> 

r OR MA T < ( 3A2 > ) 

FORMAT <I£> 

FORMAT 

FORMAT ( 1R7M3A1H0T3" ) 

FORMAT ( "P t' 4G6 T " ; 

FORMAT l "CA " ) 

FORMAT < # STATEMENT * "13" ERROR X * T " " ENCOUNTER ED 1 ** ) 



: "F 1 0 . 5 " l< probe 
Enter NO 



Figure H-2. Listing of Data Acquisition Program &ABKUL . 
(Continued on next page.) 
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007? 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 
0107 
0 108 

0109 

0110 
0111 
0112 
0113 
0 114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 
3139 

0140 

0141 
014? 

0143 

0144 

0145 

0146 

0147 

0148 

0149 
0 IS 0 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 



LI * LOGLU ( ISESSN ) 

77 WRITE (LI, 148) NOLF 

READ (LI, 149) IDUh 

WRITE (LI, 149) ( ICLR , 11=1 ,2) 

IF ( IDUfl .EQ. 2HN0 > GO TO 78 
CALL CODE 

READ (IDUh. ISO) LO 
IF ( LO .EQ. 1 ) GO TO 79 
.EQ. 6 ) GO TO 79 



IF ( LO 
IF ( LO 
GO TO 77 

78 LO = 0 

79 IF ( LO 



.EG 



18 ) GO TO 79 



01 



02 



03 



WRITE (Ll)iui) 



.EQ, LI ) LO 



. Preset data array 


with 


zeros! 




DO 01 I = 1, 20,1 
DO 01 J = 1.256,1 
DATA (I,J) = 6.0 


. Set interface bus 


and 


devices to re«ote control ! 





CALL 

CALL 

CALL 

CALL 

CALL 

WRITE 

WRITE 

WRITE 

WRITE 



, 2 ) 

R MOTE ( 8) 
RMOTE (10) 
RMOTE( 12) 
RMOTEC 15) 
( 8 , 001 ) 
(10,1001) 
( 12,1201) 
M c: »cn< ) 




J = 1 
GOTO 05 
I = 1 

WRITE (LI, 102) 

READ (LI, 149) IDUfl 
IF < IDUM .NE. 2HG0 ) GOTO 0c 
WRITE (LI, 103) 



IF ( LO NE. 0 
WRITE (LI. 104) 



) WRITE ( LO , 103) 



= n6 ac8n , ( u 2! t !J^' 104> 

PCAL = ACQN ( 4, 2,10) 

PI = ACQN ( 4, 6,10) 

P23 = ACQN ( 4, 7,10) 

ACUN ( 4, 8,10) 



P 4 
RPM 
PBARO 
XIMC » 

YAUC = 

X IMA = 

YAWA = 

X I MB 

YAWB = 

PREF 

E 

DE 
DCA 
DCB 

DAT A ( 1 , J 
DAT A ( 1 , J + 1) 
DAT A ( 1 , J+ 2) 
D ATA ( 1 , J+ 3) 
DAT A < 1 , J ♦ 4) 
DATA( 1 , J + 5) 
DATA( 1 ,J+ 6) 
DAT A ( 1 , 7 > 
DAT A ( 1 , J+ 8) 
DAT A ( l.Jt o > 



= SCANR( 8,17, 2) 
= SC ANR ( 8,25, 1) 
= SCANR ( 0,32, 1) 
= SCANR ( 8,33, 1) 
= SCANR ( 8,34, 1) 

= SCANR ( 8,35, 1) 

= SCANR ( 0,36, 1) 
= SCANR ( 8,37, 1) 

= SC ANR ( 8,39, i) 

= SCANR (15,18, 1) 

= SCANR (15,19, 1) 
= SCANR ( IS , S2 , 1) 

SCANR (15,53, 1) 
) = T ARE2 

PCAL 2 
Pi 
P 23 
P 4 
PPM 

p par a 

X IMC 
Y AWC 
X IMA 



Figure H-2. 



Listing of Data Acquisition Program &A.BKUL, 
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015? 
0160 
0161 
0162 
0 163 
0 164 
0165 
0 166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 
017b 

0177 

0178 
0 179 
0180 
0 181 
0182 
0 103 

0184 

0185 

0186 

0187 

0188 

0189 

0190 
0 191 

0192 

0193 

0194 

0195 

0196 
0 197 

0198 

0199 

0200 
0201 
0202 
0203 
0704 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 
02 1 9 
0220 
0221 
0222 

0223 

0224 

0225 

0226 
0227 
0 228 
022 Q 

0230 

0231 

m 

0234 

0235 

0236 

0237 

0238 



04 



05 



DATA ( 1 , J+ 1 0 ) 
DATA ( 1 , J ♦ 1 1 ) = 

DAT A( 1 , J + 12) 

DAT A< 1 , J + 13) 
DATA ( 1 , J+14) 
DATA< 1 , J+15> 
DATA< 1 , J + 16) 



YAWA 
XI MB 
YAWB 
PRLF 
E 

DE 
DC A 

DATA( 1 . J ♦ 1 7 ) = DCB 

WRITE (LI, 105) XIhC,YAUC,Pl ,P23,P4,I , XIMA , YAWA , DCA ,PR£F , E , X IMB , 
*YAWB,DCB,RPh,DE 

IF ( LO .NE. 0 ) WRITE (LO,10S) XI MC , Y AWC , P 1 , P23 , P 4 , I , X I MA , Y AUA , DC 
*A . PREF ,E .XIMB, YAWB,DCB,RPrt,DE 
15 ( J .CQ 61 ) c6to ds 
IF C J .EQ.141 ) GOTO 10 
WRITE (LI, 106) 

RF AD (LI, 149) IDUM 

WRITE (LI, 149) < I CLR ,11 = 1,3) 

IF ( IDUM . NE . 2HG0 ) GOTO' 04 
J * J + 20 
1 = 1 + 1 
GOTO 03 
WRITE (LI, 107) 

READ (LI, *) YAWP 
YAWP = YAWP * 2 



06 



62 



61 



63 




ICOUNT 
STAR T 
STOP 

DO 61 II 
ICOIJNT 
I BLADE = II 



C 

CS454 
C 1 3 1 3 



WRITE (LI ,108) 

IF (LO . NE . 0 ) WRITE (LO,108) 

WRITE (LI, 104) 

IF (LO .Nit. 0 ) WRITE (LO,104> 

DO 09 JI * 2, YAWP, 2 

JJ = JI / 2 

WRITE (LI, 109) JJ 

READ ( L I , 1 49 > I DUM 

WRITE (LI, 149) ( I CLR ,11 = 1,3) 

IF ( IDUrt .NE. 2HG0 ) GOTO 06 
AURGA = 0,0 
0 

256 

256 + 756 
START .STOP , 1 
ICOUNT - 1 
+ 100000H 
CALL EXFC (3,19) 

CALL EXEC (1 , 19, IRPrt.l, IHLADE) 

CALL EXEC (1,20,1 BUFF ,30,0,0) 

RBUFF = 0.0 

DO 62 JI = 1.30,1 

I PUFF ( J 1 )= IAND( I DUFF ( J 1 ) .MASK ) 

R PUFF = FLOAT ( IBUFF(jl) ) / 32768, ♦ R BUFF 

DA1A<JI, ICOUNT > = ( ( RBUFF*FSVLTG)/30 ) 

AURGA = AURGA + DATA (JI, ICOUNT) 

CONTINUE 

AURGA = AVRGA / 256 

DO 5454 I ^ 1,32,1 
WRITE (6,1313) <J,DATA( JI . J > . J 
FORMAT <6<- DATA( f ’I3") = “Fb. 0) ) 

WRITE (1,222) AVRGA 
FORMAT ( " AURGA = "Fl2.6) 

0 . 0 
0 

1696 

1696 + 256 



I , 2S6 , 33 



START .STOP ,1 
ICOUNT + 1 



AURGB 
ICOUNT 

start 
STOP 

DO 64 II 

ICOUNT 

I BLADE = II + 1 00000B 
CALL EXEC (3,19> 

CALL EXEC ( 1 ,19 , IRPrt, 1 IBLADE) 

CALL EXEC ( 1 ,20, IF*UFF,30, 1 . 0 > 

RBUFF = 0.0 

DO 63 Jl = 130,1 

I BUFF ( JI >= I AND < I BUFF ( Jl ) .MASK ) 

RBUFF = FLOAT IBUFF(Jl> ) ' 32' 7 63 . + R BU C F 

DATA(JI+l , ICOUNT ) = i v RBUFFtFSVLTG ) /3H ) 

AURGB = AURG8 + DATA ( J I + 1 , I COUNT ' 

CONTINUE 



Figure H-2. 
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0239 
024 0 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0240 

0249 

0250 
0 2S1 
G2S2 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 
0289 
1)290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 
G30S 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 
03lo 
031'’ 
0319 



C 

C5455 

333 

C 

C 

C 

c 

c 

c 



AVRGB = AVRGB / 256 

DO 5455 I * 1,32.1 

WRITE! (6.1313) ( J.DATA(JI+1 , J) , J = 1,256,32) 
UR I TE < i . 333 ) AVRG& 

FORMAT < " AVRGB * “F12.6) 



Get necessary steady state data 



20 + 1 

= AGON < 4, 1,10) 
= AGflN ( 4, 2,10) 
ACQN ( 4, 6,10) 



GOTO 099 
I = (JJ - 1) * 

DATA (20.1 ) 

DATA(20,I+ 1) 

DATA ( 20,1+ 2) = 

DATA<20,I+ 3) = ACQN < 4, 7,10) 

DA TA( 20 , I + 4) = ACQN ( 4, H,10) 

DAT A (20,1+ 5) = SCANR ( 8,17, 2) 

DAT A( 20 , I + 6) * SCANR ( 8,25, 1) 

DA T A ( 20 , I + 7) * SCANR ( 8,32, 1) 

DATA <20,1+ 8) = 5CANR ( 8,33, 1) 

DA T A ( 20 , I + 9) = 5CANR ( 8,34, 1) 

DATA(20 , I + 1 0 ) » SCANR < 8 , 3S , 1) 

DATA(20 , 1 + 1 1 ) a SCANR ( 8,36, 1) 

DATA(20 , 1+12) = SCANR ( 8,37, 1) 

DATA(20, 1 + 13) =* SCANR ( 8,39, 1) 

DATA(20 , 1+14) *= SCANR (15,10, 1) 

DATA(20 , 1+15) » SCANR ( 15, 19, 1) 

DATA(20 , 1+16) = SCANR ( 15 ,52 , 1) 

DA r A ( 20 , 1 + 17) = SCANR (15, S3, 1) 

DATA(20 , 1+18) = AVRGA 
DATA(20 , 1+19) = AVRGR 

WRITE (L I .105) DAT A ( 2 0,1+7 >,DATA(20,I+8) , DAT A( 2 0 . 1 * 2 ) , DAT A ( 2 0 , I +3 ) 
♦.DATA (20 . 1+4) , JJ,DATA<20, 1+9) .DATA (20, I +10) .DATA (20 , IM6) , 

*DATA<20 , 1 + 13) ,DATA(20 , 1 + 14) .DATA( 20 .1 + 11 ) , DAI A( 20 , I +12 ) , 

♦ DATA ( 20 , 1 + 17) , DATA <20) 1 + 5) ,f)ATA(20, 1 + lS) 

WRITE (LI. 112) AVRGA.AyRGB 

IF < LO .NE. 0 ) WRITE (LO,10S> D ATA ( 20 , I +7 ) . DATA ( 20 . 1 +8 ) , DAT A ( 20 
*, 1 + 2) ,DATA<20, I+3),DATA(20,I+4) , J J , DAT A ( 20 , I +9 ) , DAT A < 20 , I + i 0 ) , DAT A 
*(20. 1+16), DATA (20. 1 + 13), DA f A(20 . 1 + 14) .DAT A <20 , 1 + 11 ) ,DATA(20 , I +12) , 
* DAT A <20, I +17), DATA (20, 1*5) , DATA (20 ,I+i5) 

IF ( LQ .NE. 6 ) WRITE (LO,li2) AVRGA , AVRGB 



09 




10 



CONTINUE 
J = 81 
GOTO 02 
CONTINUE 



Release interface bus and devices fron renote control 



CALL CLEAR 
CALL LOCL 



(7,1) 

(7) 



13 



DO 11 I = 1,4.1 

J = <l-i> *20+17 

X ( I ) = DATAC 1 , J ) 

JJ = J - 3 

Y(I) = DATAd , JJ) 

CALL CUR UE (4 ,X ,Y .SLOPE , SECON ) 
DATAd, 160) = SLOPE 
DATA ( 1.161) * SECON 
DO 12 1 = 1.4,1 

J = <!-{) *20+18 

X ( I ) = DATA ( 1 , J) 

JJ = J - 4 

Y ( I ) = DATAd , JJ ) 

CALL CURVE < 4 ,X .Y, SLOPE , SECON > 
DATA(l, 170) = SLOPE 
D ATA ( 1 .171 ) = SECON 
DO 13 i = 1,4,1 

J = < 1-i ' * 20 ♦ 97 

X( I ) = DAT A ( 1 . J ) 

JJ = J - 3 

Yd) - DAT A ( 1 . J J ' 



Figure H-2. 
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03i? 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0320 

0329 

0330 

0331 

1)332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 



<4 .X , Y .SLOPE,SECON) 

DATA(i,ieo> = £l6p£ 

DAT A< 1 . 1B1 > = SECON 
DO 14 t = 1,4.1 
J = (1-1) * 20 ♦ 98 

X< I ) = DAT A ( 1 , J) 

JJ - J - 4 

Y( I ) = DAT A ( i , JJ ) 

CALL CURVE ( 4 . X , Y . SLOPE , SECON ) 

dat a t i,i90) * Slope 

DAT A( 1.191) = SECON 

URITE (LI. 110) ( DATA(1,I),DATA<1,IM).I = 160,190,10 ) 

IF(LO.NE.O) URITE<LO, 1 lO > ( DATA< 1 , I ) , $ATAt 1 , I +1 > , t = 160,190,10) 
URITE (LI , ill ) ' 

READ (LI. 149) IFILE 

CALL CREAT ( I DCK , I ERR , IF ILE , IS I 2E , I T YPE , I SECU , I CR , I DCBS ) 



II 



1 



IF ( I ER R .LT. 0 ) URITE (1,1111) II, IERR 

CALL OPEN ( I DCS, IERR, IFILE, IOPTN, I SECU, ICR, IDCPS) 

II - 2 

IF ( IERR .LT. 0 > URITE (1,1111) II, IERR 
CALL URITF < IDCB , I ERR , DATA , I L ) 

II =3 

IF ( IERR .LT. 0 ) URITE (1,1111) II, IERR 
CALL CLOSE ( IDCB , IERR , 0 ) 

11=4 

IF ( IERR .LT. 0 ) URITE (1,1111) II, IERR 

STOP 7777 

END 



H-2. Listing of Data Acquisition Program &ABKUL . 
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APPENDIX I 



PROCESSING PROGRAMS &SPLIT AND &WAVE FOR TEST DATA 

As stated in 6.3a plot of the acquired high speed data is 
very desirable since it represents the fastest way to judge the 
quality of the data. As the graphics software requires 
much storage space within a program, it is not possible to 
read the complete data file into a plot program. A utility 
program — &SPLIT — has been created which splits the data array 
into two smaller arrays containing either A or B probe data. 
These arrays contain the data for the on-line calibration and 
steady state also. They are both stored under different names, 
which are operator input. 

Since program &SPLIT is a very short and simple program, 
only a listing is given in Fig. 1-1. Explanations are given as 
needed within the listing. The two newly created files are 
stored on the same cartridge as the original raw data file. 

Program &WAVE provides means to read the smaller data files 
and to plot their contents. If the variable POS is assigned to 
be the circumferential position of the probe readings where the 
starting position is set to 1 and the end position to 256, the 
pressure distribution can be expressed as a function P = P(pos) 
for all nine yaw angles. These functions can be plotted by 
program &WAVE . The plot is a straight line connection of all 
points . 
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As mentioned in 6 . 3 program &WAVE serves two purposes : 
plotting Kulite data from an existing file and acquiring data 
from any of the 16 A/D channels and plotting it right away. 

The decision as to which of the two options shall be used has 
to be made first by the operator. If it is desired to plot 
data from a data file, the operator has to key in the file 
name and the cartridge reference number. This file is then 
read into a data array. For each probe yaw angle setting 
there is one pressure distribution P = P (PCS ) and the operator 
is asked to specify the one he wants to plot. The choice of 
plotting on the CRT screen or the X-Y plotter has to be made 
as well as whether a whole new frame for the plot is needed. 
Without further input the graph is developed. Other data from 
the same file can be plotted without rerunning the program or 
it can be stopped at this point. 

If the second feature of the program should be exercised, 
it has to be specified at the very beginning, when asked for 
this decision. An A/D channel number has to be entered which 
corresponds to the Kulite transducer that shall be observed. 
The number of samples to be taken at each of the 256 positions 
also has to be put in. This initializes the data acquisition 
process. Once all the data is acquired, the operator has to 
decide whether he needs a new frame or not and where he would 
like to have his plot (CRT or X-Y plotter) . As soon as the 
plot is dumped, the program can either be stopped or started 
from the very beginning. 



167 



Figure 1-2 shows a flow chart of program &WAVE, while Fig. 



1-3 is a listing. 



Variable 


Type 


Description 


AD 


Integer 


Dummy Variable 


CHANL 


Integer 


A/D channel number 


DATA (11,256) 


Real 


Data Array 


FSVLTG 


Real 


Calibration factor for Kulite probe 
reading 


IBUFF (99) 


Integer 


Array for Kulite sample values 


I BUM 


Integer 


Dummy variable 


ICR 


Integer 


Cartridge reference number 


ID 


Integer 




IDCB (144) 


Integer 


Data control block 


IDCBS 


Integer 


Data control block length 


IDUM 


Integer 


Dummy variable 


IFILE (3) 


Integer 


Array containing file name 


IGCB (192) 


Integer 


Graphics control block 


IL 


Integer 


Total number of words stored in data 
file (two words for one value) 


ISECU 


Integer 


Security code 


ISIZE (2) 


Integer 


Array to specify file dimensions 


ITYPE 


Integer 


Type of data file 


LI 


Integer 


Input device number 


LU 


Integer 


Output device (screen/plotter) number 


MASK 


Integer 


Masking variable 


N 


Integer 


Number of samples to be averaged 
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Description 



Variable 


Type Description 


RBUFF 


Real Real value of single sample 


RBUFO 


Real Sum of all real value samples for one 

position 


X ( 256 ) 


Real Real data array 


Y (256) 


Real Real data array 
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6SPLIT T = 0 0 0 U 4 IS UN CR00026 USING 00021 bl KS R=0000 



00 0 1 
0002 
1)0 03 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0 0 i 1 
0012 

0013 

0014 
0 0 IS 
0016 

0017 

0018 
0 019 
0020 
0021 
0 0 2? 
0023 
0 024 

0025 

0026 
0027 
0 028 

0029 

0030 
0 031 
0 0 32 

0033 

0034 

0035 

0036 

0037 
0 0 38 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 
0 048 

0049 

0050 

0051 
0 0 52 

0053 

0054 

0055 
0U56 

0057 

0058 
005? 
0060 
0 0 6 1 
0062 
0063 
UU64 
0065 
OOoo 
0067 
0 0 60 

0069 

0070 
0 0?1 

0072 

0073 

00^4 

0 0-5 

0 07,. 

no — 

n 



FTN4 , L 

c 
c 
c 
c 
c 
c 
c 
c 



PROGRAM 5PLIT(3,9?) 



This progran splits the large Data file as created by progran 
ABKUL into Two seperate data files. 

One contains the uaveforns of tne A-probe and the other the 
one fron the 8-probe 1 



DAI A (20 ,256 ) , DATAS < 1 1.256) 

I DC I* < , IF iLE (3) , lSlZF(2> 



101 

102 

103 

104 
149 

1111 



REAL 
INTFCER 

DATA I DllBS / 144/ 

DATA IBECU / 00/ 

DATA ITrPE / 1/ 

DATA 1 5 1 ZE ( 2 ) / 128/ 

FORMAT (" ENTER THE NAflF OF THF RAW DATA FILE : " > 

FORMAT ( " FNTFR THE CARTRIDGE RFFERENCF NUM8FR : “ ) 

FORMAT ( “ FNTFR THF NAMF FOP THC FILE CONTAINING A-P R 08E DATA * “ ) 
FORMAT (“ FNTEK THE NAME FOR THE FILE CONTAINING 8-f‘ROBE DATA*") 
FORMAT ( ( 3A2 ) » 

FORMAT <“ STATEMENT ♦ : "12“ ERROR * : "14" DISCOVERED'") 

ISiZE(l) * 80 

IL = 1024U 



READ RAU DATA FILE INTO ARRAY DATA(?0,25b) ' 



WR ITE (1,101) 

READ (1,149) IFILE 
URITE (1,102) 

R F AD (1, *) ICR 

CALL OPEN ( IDCB, IERR , IFILE, IOPTN,ISECU, ICR # IDCB5) 
JJ = 1 

IF ( IERR .LT. 0 ) URITE (1,1111) JJ,IF.RR 

CALL READF ( I DCP, IERR , DATA, IL , LEN, 1 ) 

J J = ? 

IF (IERR .LT. 0 ) URTTE( 1 , 11 11 ) JJ,IFRR 
CALL CLOSE < IDCB, IERR , 0 ) 

JJ - 3 

IF (IERR .IT, 0 ) URITEd , 1 1 11 > JJ,IERR 




05 



DO 05 J 

DO 05 I 

J1 
J? 

D AT AS ( J2 , I ) 
DA T AS ( 1,1) 
DAT AS ( 1 1 , I ) 
1 5 1 ZE ( 1 ) 

IL 



= 1 , 9,1 

: l rSV 

* J ♦ 1 
= DATA (J 1,1) 
= DATA ( l , 1 ) 
= DAT A (20,1) 
= 44 

= 563? 



R F AD FILENAME FOR A -PR OPE DATA AND STORF A-PROBE DATA. 



URITE (1.103) 

READ v 1 . 149) IFILE 

CALL GREAT ( IDCB , IERR , IFILE , ISIZE , ITYPE , ISECLJ , ICR IDCDS> 
JJ = 4 

IF (IERR LT. 0 > URT T Fd ilil> JJ.-URR 

CALL OP F N ( IDC8, IFPR, IFlEE . IOPTN, ISECU . ICR . IDCB5) 

JJ = 5 

IF (.IERR .LT. 0 > URITEd .111) ' J J . IERR 
CALL URITF ( I DC8 , I ERR , DAT AS , I L ) 

JJ = n 

] T (.IERR .LT. O ' URTTE(1 inn JJ.IfcRR 
CALL Cl OSE < I TCP . IERR . 0 ) 

JJ - ' 

IF iIERK LT. 0 ' URITEd 1111' JJ.ICRR 



Figure 1-1. Listing Program to Split Up Big Raw Data Array From A- 
Into Smaller Arrays: SSPLIT. 

(Continued on next page.) 









B Probe 
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0079 

0080 
0081 
0082 
0083 
0034 
0005 
0086 
0087 
0 088 

0089 

0090 

0091 
U 092 
0 093 
J 09 4 

0095 

0096 
0 C 97 

0098 

0099 
010 0 
0 1 0 1 
0102 

0103 

0104 

0105 

0106 

0107 

0108 
0109 
U110 



READ B-PROBE DATA INTO SEPARATE ARRAY . 



07 



DO 07 J 

DO 07 I 

J1 
J2 

DATAS ( J2 , I ) 
DAT AS ( 1 ,1) 

DATAS ( 11,1) 



1, 9,1 

1.256,1 
( J i 2 ) 
J + 1 

DATA ( J 1 , I ) 
DATA(1 ,1) 
DATA < 20 * I ) 




WRITE (1,104) 

READ (1.149) IFILE 

CALL CREAT < I DCB , I ER R , IF ILE , I S I ZE , I T YPE , ISECU , I CR , I DCBS > 
JJ » 7 

IF (IEPR .LT. 0 ) URITEd .1111) JJ.ICRR 

CALL OPEN (IDCB,IERR,IFl£E,IOPTN,iSECU,ICR,IDCBS> 

JJ * 3 

IF (IERR .LT. 0 ) URITEd. 1111) JJ,IERR 
CALL WRITF ( I DCB , IERR , DAtAS , IL ) 

JJ = 9 

IF (IERR .LT. 0 > URITEd, 1111) JJ,IERR 
CALL CLOSE ( I DCB , IERR , 0 ) 

JJ =10 

IF (IERR .LT. 0 ) URITEd ,1111) JJ,IERR 

STOP 7777 

END 



Figure 1-1 . 



Listing of Program to Split Up Big Raw Data Array From A 
Into Two Smaller Arrays: &SPLIT . 



B Probe 
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YES 





NO 


READ DATA FIL 


.E INTO ARRAY | 







OS 







|rf.ad number of desired yauangi.es I 











Figure 1-2. Flow Chart of Data Acquisition and Plotter Program &WA 
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1 READ A/P CHANNEL t | 



j READ NUMBER 


OF SAMPLED 






J READ * OF B! ADEPAIR | 






ACQUIRE DAI 
USING THE P 


A F'ROn A/D 
ACER 




Figure 1-2. Flow Chart of Data Acquisition and Plotter Program &WAVE . 
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& WAVE T = 0 0 004 IS ON CR00027 USING 00022 BLKS R-0000 



000 1 
0 002 
0003 
00 04 

0005 

0006 
0007 
0 008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 
0 031 

0032 

0033 

0034 
0 03S 

0036 

0037 

0038 
003? 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 
0 0S4 
0 05S 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 
0 06S 
0 0 66 
0067 
0 0 68 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 



FTN4,L 

C 
C 
C 

c 
c 
c 
c 
c 



PROGRAM WAVE (3,99) 



This is proqrnn WAVE 

It plotts waveforns as read fron either i 

a data file created using test data fron the TX-c onpr essor 
or fron a specified AD channel right away. 



DATA ( 1 1*72^6) . X(2S6) . Y<256) 

I DCB (144) , IFILE(3) ,1 SIZE (2) , N , CHANL 



DIMENSION IGCB ( 192 ) , I BUFF (99 ) 

REAL ' 

INTEGER 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



DATA 



IDCBS 
ISECU 
I TYPE 
IL 

ISIZE(l) / 
ISIZEC2) / 
MASK 



FSVLTG 



/ 144 / 

/ 00 / 

/ 1 / 

/ 5632/ 

44 / 
128/ 

/ 1 7770 0 B/ 



/ . 1 E 0 1/ 



100 



101 

102 

103 

104 



10S 

107 

108 

113 

114 
US 



FORMAT (" This is progran WAVE.*/" It can plott a waueforn as read 

* for* the A/d or fron a data file. - /" Decide now, which of the two 

* options you want 1- / - Key AD if you want to take a new reading. An 
Jythingelse - /" will ask for further infornations for a data file. - ) 

FORMAT ("Enter the nane of the data file! - ) 

FORMAT ("Enter the cartridge ref. nunberl") 

FOR MAT < “ Do you want another waveforn to be plotted?"/" Enter yes, 

* if so. anything else if not*") 

FOR MAT ( " Do you want to stop this proqran or plot sone nore waves? 
**/" If you are going to stop it. just key STOP. Anything else will 

* give you further instructions!*) 

FORMAT ( / 1 2X , 5 ( 2X , F 1 0 . 6 ) /5X . 1 2 , 5X ,5 ( 2X , F 1 0 . 6 ) / 12X , S ( 2X , F 1 0 .6) ) 
FORMAT < " Do you need a conplete new frane?"/" Answer YES or NO!") 
FORMAT<" If you want the plott on the plotter, key PL, anythingels 
*e for the terninal *") 

FORMAT<" You decided to to qet a waveforn fron the AD!"/"Enter the 

* following now : AD channel") 

FORMAT ( " Nunber of repetitions, bladepair (1-9) •. " ) 

FOR MAT ( " Enter the c or r esp on d i n q nunber for the waveforn you want 
r t o draw!"/" The arrangenent is: V" Yaw pos * 1 



p os 

DAT A< 1,J), DAT A ( 2 , J ) , DATA(3,J), 



116 



149 

1111 



•13" ERROR * 



"14" DETECTED") 



*t o 

* 3 9 - /9X" 

X . . . DATA ( 9, J> - Probe "/) 

F ORMAT ( " Do you want a plot of another waveforn? - / - If so, key YE. 
lAnv other key will stop the progran! ") 

FORMAT ((3A2)) 

FORMAT ( " STATEMENT ♦ 

LI = LOGLU( ISESSN) 

001 WRITE (LI , 100 ) 

READ ( L I , 1 49 ) IDUM 
IF ( IDUM ,EQ. 2HAD ) GOTO 025 
WRITE (LI, 101) 

READ (LI, 149) IFILE 
WRITE (LI, 102) 

READ (LI, *) ICR 

CALL OPEN ( IDCB, IERR , IFILE , IOPTN, ISECU, ICR , IDCBS) 

IF (IERR .LT. 0 ) WRITE (LI. ill!) JJ,IERR 
CALL READF ( I DCB , IERR , DATA , 1 l , LEN , 1 ) 

J J — 2 

IF (IERR .LT. 0 ) WRITE (LI, 1111) JJ,IERR 
JJ = 3 

CALL CLOSE ( I DCB , I ERR , 0 ) 

IF (IERR .LT. 0 ) WRITE (LI, 1111) JJ,IERR 
005 WRITE (LI, 115) 



READ (LI 



010 



11 * I 
XK = 1 . 
DO 010 
X( J) 

Y( J) 

LU 
ID 



*) I 



1,256.1 
J * XK 
DAT A ( II , J> 
1 



= 1 



WRITE (LI, 107) 

READ (LI, 149) IDUM 
WRITE (LI, 108) 

READ (LI, 149 ) I BUM 



Figure 1-3- 



Listing of Program to Plott Raw Data Waveforms: 
(Continued on next page-) 



&WAVE 
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0079 

0080 

GOBI 

0 082 

0083 

0084 

0085 

0086 

0087 

0088 

0 089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

OiOO 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 



IF (IDUM .EQ. ?HP L ) ID = 2 
IF (ID .EQ. 2 > CD - i3 

CALL PLOTR ( I GCB , I D , 1 , LU ) 

CALL SETAR ( IGCB 1 A ) 

CALL UIEUP ( IGCB ,20. .100 . ,20 . ,68. > 

CALL WINDU (IGCB , 0 . , 256 . , - 1 . 0 ! 1 . 0 > 

IF < IDUh .NE. 2HYE > GOfO 015 
CALL FXD ( I GCB , 2 ) 

CALL LGRID < IGCB , - 1 6 . , . 1 0 , 0 . 0 , 0 . 0 , 4 . , 2 
015 CONTINUE 

CALL MOUE ( IGCB, X< 1 ) ,Y< 1) ) 

DO 020 J * 2.256,1 
020 CALL DRAW < IGCB , X < J > , Y < J > ) 

WRITE (LI, 103) 

READ (LI, 149) IDUM 

IF ( IDUN .EQ. 2HYE > GOTO 05 

GOTO 050 

025 WRITE (LI , 1 13) 

READ (LI, *) ICHAN 
WRITE (LI, 114) 

READ (LI, *> N , I BLADE 
ISTART * (IBLA&E-i) « 256 ♦ i 
ISTOP = ISTART ♦ 255 
II =0 

DO 035 I = ISTART, ISTOP, 1 
II =11+1 

I BLADE = I + 256 + 10000QF 

CALL EXEC (3,19) 

CALL EXEC ( 1 ,19, IRPN.l .IBLADE) 

CALL EXEC ( i ,20, IBUFF,^, ICHAN, 0) 

RBUFO = 0.0 
DO 030 J = 1 ,N . 1 
I BUFF < J ) = I hND ( I BUFF ( J ) , MASK ) 

RBUFF 

030 RBUFO 
035 Y ( ID 
LU » 1 
ID = 1 

WRITE (LI, 107) 

READ (LI, 149) IDUM 
WRITE (LI, 108) 

READ (LI, 149) I BUM 
IF (IBUM .EQ. 2HPL ) ID = 2 
IF ( ID . EQ. 2 ) LU = 13 

CALL PLOTR < I GCB , I D . 1 , LU > 

CALL SETAR < IGCB , 1 , £ ) 

CALL UIEUP ( IGCB ,20 . .100. ,20 . ,68. > 



FLOAT ( I BUFF ( J J )/32768. 
= RBUFF + RBUFO 
= ( (RBUFO*FSVLTG)/N) 



CALL WINDU ( IGCB, 0 . 



256 . ,-l . 0, 1 . 0) 



IF ( IDUM .NE. 2HYE ) GOTO 04($ 

CALL FXD ( IGCB, 2) 

CALL LGRID < I GCB , - 1 6 . , . 1 0 , 0 . 0 , 0 . 0 , 4 . , I 
040 CONTINUE 

CAlL MOUE ( IGCB , 1 , Y( 1 ) ) 

DO 045 J = 2,256.1 
X ( J ) = J * 1 . 0 

045 CALL DRAW < IGCB , X ( J ) , Y( J ) ) 

050 WRITE (LI ,104) 

READ (LI, 149) IDUM 

IF ( IDLM .NE. 2HST ) GOTO 01 

STOP 7777 

END 



1 . ) 



1 . ) 



1-3. Listing of Program to Plott Raw Data Waveforms: 



&WAVE . 
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APPENDIX J 



DATA REDUCTION PROGRAM SABRED 

Program SABRED was explained almost completely in chapter 
6.4. More detailed explanations shall be given in here 
where they are needed. Figure J-l shows a self-explanatory 
flow chart of the program while Fig. J-2 is a complete 
listing . 

From the flow chart it is obvious that the first and big- 
ger part of the program deals with overall flow measurements 
from the combination probe. The data reduction of these mea- 
surements is not explained since Ref. 1 deals with this in 
great detail. It should be mentioned that the raw data used 
for the combination probe data reduction is the average of 
the raw data which was acquired along with the acquisition of 
any set of Kulite probe data. Thus the results of the com- 
bination probe represent one average flow vector which is 
assumed to be constant throughout the data acquisition pro- 
cess. As the Kulite data used for the on-line calibration is 
derived from the whole raw data acquired also, this seems to 
be a reasonable way. The principle of the on-line calibra- 
tion was described in chapter 6.1 already. If a print-out 
of the control parameters was chosen, the result of the on- 
line calibration will be displayed in the form of a linear 
equation relating A and B probe pressures to voltages. 
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The results of the on-line calibration are first applied 
to the dc-level values from the A and B probe in order to 
calculate the average flow vector. Chapter 6.4 shows the 
results of this process. The procedure used to derive these 
values is in principal the same as the one used to calculate 
flow vector quantities for the individual measurements. In 
order to check the quality of the data reduction, an output 
of the A and B probe results as derived from their approxima- 
tions can be produced. The yaw and pitch angle as well as 
Mach number are derived from the approximation results and 
printed out. These values can be compared to those derived 
from the combination probe (see 6.4). 

Then the DO-loop for the reduction of individual data 
points is started at the position (ISTART) determined earlier. 
For any of these positions the results of the on-line calibra- 
tion is applied to the raw data first, so that absolute pres- 
sure values exist. The data reduction procedure as described 
in 6.4 is then applied to these values. Using the local Mach 
number as well as the total pressure as derived from the A 
probe, pressure coefficients Cp^ are derived as functions of 
yaw angle and can be printed if desired. The examination of 
these values proved to be very helpful in the evaluation of 
the quality of the achieved result. 

Since the A probe has only one calibration curve Cp^ as 
a function of yaw angle, as long as the pitch angle and Mach 
number do not exceed the range of the calibration, for any 
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measured position the same curve should be resolved. The 
use made of this fact so far is described in chapter 7. 

When the DO-loop for all described positions is completed, 
the reduced data is stored in a file. Only pitch and yaw 
angle and Mach number ( or x ) are stored, since they are 
sufficient to describe the individual flow vectors. 

Common Block Identifier Variable 





DTA2 


XI, Y 


Variable 


t Y P e 


Description 


AAO 


Real 


A probe yaw angle for aligned flow 


ABO 


Real 


B probe yaw angle corresponding to 
max. probe output 


ASL 


Real 


A probe yaw angle 63° left of flow 
aligned yaw angle 


ASR 


Real 


A probe yaw angle 63° right of flow 
aligned yaw angle 


BETA 


Real 


Dimensionless pressure coefficient 


BETA2 


Real 


Relative rotor exit flow angle 


COECPB (7,7) 


Real 


Data array for coefficients of 3-D 
CPOB approximation 


COEF ( 7 ) 


Real 


Data array for 2-D approximation 
coefficients 


COEKP (7,7) 


Real 


Data array for coefficients of 3-D 
Kulite pitch angle approximation 


COEKX (7,7) 


Real 


Data array for coefficients of 3-D 
Kulite Mach number approximation 


COEOP (7,7) 


Real 


Data array for coefficients of 3-D 



combination probe pitch angle 
approximation 
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Variable 



Type Description 



COEOX (7,7) 


Real 


Data array for coefficients of 3-D 
combination prcbe Mach number 
approximation 


CPA 


Real 


Pressure coefficient from A probe 


CPAMAX 


Real 


Maximum pressure coefficient from 
A probe 


CPBMAX 


Real 


Maximum pressure coefficient from 
B probe 


CPOA ( 6 ) 


Real 


Data array for 2-D approximation of 
A probe pressure coefficients 


DATA(20, 256) 


Real 


Data array containing the raw data 


DEAMAX 


Real 


First derivative of approximated 
function EA (voltage A probe) of 
yaw angle for maximum of EA 


DEBMA 


Real 


First derivative of approximated 
function EB (voltage B probe) of 
yaw angle for maximum of EB 


DELTA 


Real 


Pressure coefficient 


DP 


Real 


Pressure difference for two pressure 
values corresponding to two yaw angle 
which are separated by DX 


DPA 


Real 


Difference between actual A probe 
pressure and value derived from poly- 
nomial approximation at each yaw 
position . 


DPB 


Real 


Difference between actual 3 probe 
pressure and value derived from poly- 
nomial approximation at each yaw 
position 


DPX 


Real 


First derivative of the function 
P A (a) - P A (a - Aa) 


DX 


Real 


Given spread in yaw angle between 
PSAL and PSAR 


EAMAX 


Real 


Maximum voltage from the A probe 


EBMAX 


Real 


Maximum voltage from the B probe 
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Variable 


T l£f. 


Description 


EQ3 


Real 


CPOA - maximum pressure coefficient 

of A probe (used in on-line calibration) 


EQ5 


Real 


CPOB - maximum pressure coefficient of 
B probe (used in on-line calibration) 


GAMMA 


Real 


Pressure coefficient 


ICR 


Integer 


Cartridge reference number 


IDCB (144) 


Integer 


Data control block 


IDCBS 


Integer 


Control block length (of IDCB) 


IFILE (3) 


Integer 


Array containing file name 


IL 


Integer 


Total number of words read from data 
file (two words for one value) 


IPRINT 


Integer 


Decision variable (control parameters 
yes or no?) 


IPRINl 


Integer 


Decision variable (calibration coef- 
ficients yes or no?) 


ISECU 


Integer 


Security code 


ISIZE (2) 


Integer 


Array to specify file dimensions 


ITYPE 


Integer 


Type of data file 


ICLR ( 3 ) 


Integer 


Command to clear line above cursor 


LI 


Integer 


Input device number 


LO 


Integer 


Output device number 


NOLF 


Integer 


No line feed command 


NOCR 


Integer 


No carriage return command 


PA (9) 


Real 


A probe pressure values from indi- 
vidual measurements 


PAA ( 9 ) 


Real 


A probe pressure values from averaged 
(dc-level) measurements 


PAB (9) 


Real 


B probe pressure values from averaged 
(dc-level) measurements 
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Variable 



PAC (9) 
PAMAX 

PB (9) 

PBARO 

PBC 

PBMAX 

PHI 

PKB 

PREF 

PREFP (9) 

PSA 

PSAL 

PSAR 

PSTAT 
PS TATA 

PTOTAL 

POA 

POB 



Type Description 

Real Calculated values of A probe 

Real Maximum pressure value of A probe 

output as function of yaw angle 

Real B probe pressure values from indi- 

vidual measurements 

Real Barometric pressure 

Real Calculated values of B probe 

Real Maximum pressure value of B probe 

output as function of yaw angle 

Real Pitch angle 

Real Maximum absolute average value of B 

probe pressure 

Real Average value of Kulite reference 

pressure 

Real Array of reference pressures for all 

9 independent yaw positions 

Real Static pressure equivalent of A probe 

Real Pressure reading of A probe for a yaw 

angle 63° to the left of the flow 
aligned yaw angle 

Real Pressure reading of A probe for a yaw 

angle 63° to the right of the flow 
aligned yaw angle 

Real Static pressure 

Real Static pressure minus Kulite reference 

pressure 

Real Total pressure 

Real Maximum pressure output of A probe 

(on-line calibration) 

Real Maximum pressure output of B probe 

(on-line calibration) 
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Variable 


Type 


Description 


PI 


Real 




P23 


Real 


Pressure values of combination probe 


P4 


Real 




RADIS 


Real 


Radius of probe tip location 


RDATA (3,256) 


Real 


Reduced data array 


RPM 


Real 


Compressor speed 


SECTA 


Real 


Intercept A probe 


SECTB 


Real 


Intercept B probe 


SLOPE A 


Real 


Slope A probe 


SLOPEB 


Real 


Slope B probe 


TT2 


Real 


Total temperature at rotor exit 


U 


Real 


Circumferential rotor speed 


XM 


Real 


Mach number 


XU 


Real 


Dimensionless circumferential rotor 
speed 


XVEL 


Real 


Mach number equivalent dimensionless 
speed 


XO 


Real 


Starting value for the iteration to 
find PSAL and PSAR 


XI (256) 


Real 


Data array for 2-D approximations 


Y (256) 


Real 


Data array for 2-D approximations 


YAW 


Real 


Yaw angle 


YAWA ( 9 ) 


Real 


Array containing A probe yaw angles 


YAWB ( 9 ) 


Real 


Array containing B probe yaw angles 
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Figure j-1. Flow Chart of Data Reduction program SABRED. 
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DO 
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Figure J 
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Figure j-1. Flow Chart of Data Reduction program SABRED, 



con' t 
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SABRED 1*00004 IS ON CR00027 USING 00142 BLKS R=0000 



0001 
0 Q 02 
"003 
0004 
ooos 
.10 06 
10 07 
0008 
3009 
0010 
‘Oil 
0012 

0013 

0014 
3015 
0016 
3 017 
0018 
3019 
0020 
0 021 

3022 

3023 

3024 
0 025 
0026 

0027 

0028 
0029 
o 030 

0031 

0032 

0033 

0034 

0035 
3036 
0037 
3 030 

.5933 

0041 
0 0 42 
0 0 43 

3044 

3045 

0046 

0047 

0048 
0 49 

3 050 
3051 
0052 
3053 
0 054 
0055 
0 056 

0057 

0058 
0 059 
10 60 
j 06 1 

3062 
C0b3 
0 064 
306S 
0 366 
.'.367 
■>0 68 
069 
.. 370 
0071 
3072 
0073 
0 074 

1075 

1076 
107- 
3 070 



FTN4,L 



PROGRAM ABRED <3,99) 



THIS IS PROGRAM ABRED < uc t i on ) FOR THE A-B PROBE SYSTEM. 

IN THIS VERY VERSION THE PROGRAM IS SET UP FOR THE NEW A-B- 
PROBES <0.063- O.D., SCREEN WITH HOLES ON A CIRCLE ). 

IF ANY OTHER PROBES (KULITE AS WELL AS COMBINATION PROBE) 
SHALL BE USED, THE CORRECT FILE NAMES FOR THE COEFFICIENT 
FILES HAVE TO BE PUT IN ; 



FILE ♦ CONTAINS APPROX. COEFFICIENTS! 

1 KULITE PROBES MACHNUMBER 

2 KULITE PROBES PITCHANGLE 

3 KULITE PROBES CP0B 

4 COMBINATION PROBE MACHNUMBER 

5 COMBINATION PROBE PITCHANGLE 



DATA ARRAY NAME 

COEKX 

COEKP 

COECP 

COEOX 

COEOP 



COMMON / DTA2 / XI , Y 

REAL DATA<20 ,256) ,Xi <256) , Y < 256 ) , COEF < 7 ) 

REAL COEOX < 7 , 7 ) , COEOP < 7 , 7 ) , COEK X < 7 , 7 ) , COEKP < 7 , 7 ) , COECPB < 7 , 7 ) 



, Y A WA < 9 ) 
, P AC < 9 > 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



P AA < 9 ) , PAB < 9 ) 

P A < 9 ) , P B < 9 ) 

R DATA < 3,256 ) 

CP 0 A < 6 ) 

IDCB< 144) .IFILE<3) , I SIZE ( 2) 
NOLF . NOCR ^ 2 > , I CLR < 3 ) 

/ 1 . 0 0 25921 / 

/ 0 . 0356475 / 

/ -.2724224 / 

/ 0.9320285 / 



, Y AUB < ? ) 

, PREFP < 9 ) 



-2 



hmm 



/ 

144 / 



^01S524B,o{s£l5B,Q06537B 
/ 006537B / 



ENTER NO 



REAL 
PEAL 
REAL 

DIMENSION 
INTEGER 
INTEGER 
DATA CP0 A< 1 ) 

CP 0 A< 2 ) 

CP 0 A < 3 ) 

CP 0 A< 4 ) 

CP 0 A < 5 > 

CP0 A< 6 X 
IDCBS 

tm £ 

DATA NOLF . 

300 FORMAT <" OUTPUT INPUT DATA TO ANY OTHER DEVICE? 

* OR LU* !"/" " A2 ) 

305 FORMAT <I2) 

310 FORMAT < " DO YOU WANT AN OUTPUT OF THE CALIBRATION COEFFICIENTS?" 

*/“ ENTER YES IF SO OR ANYTHING ELSE IF NOT • "/ “ M A2) 

315 FORMAT < " DO YOU WANT AN OUTPUT OF THE CONTROLL PARAMETERS?"/" KE 
*Y YES IF SO OR ANYTHING ELSE IF NOT!"/" "A2) 

320 FORMAT <//" THE DATA READ FROM FILE "3A2" ARE"/) 

325 FORMAT <" I 7“J — " 

330 FORMAT <" " 1 3 , 7 < IX , F i 1 . 6) ) 

335 FORMAT <" ENTER RAW DATA FILE*"// 

*" DON * T FORGET SECURITY CODE 6 CARTRIDGE REFERENCE NUMBER'"/ 

*" ! t "A2> 

340 FORMAT < <3A2) , IX , 12, IX, 12) 

34S FORMAT <" ENTER THE NUMBER OF THE START AND END POSITION : " / 

*" " A2 ) 

350 FORMAT < 13, IX , 13 ) 

355 FORMAT <" %%% ************************* ***** ******** *** *********" // 

*" RAW DATA FILE : M 3A2"::“I3 // 

* •• *****************************************************-/) 

360 FORMAT < / " FLOW AVARAGED VALUES AS ESTABLISHED WITH THE COMBINATION 

* PROBE"//" P t o T a 1 < INCH H20) Pstatic<INCH H20)"6X"Xvel"6X"hach"2X“ 
*PhKdeq) "2X"Yau< deg > "/2<5X, F13 . 6 ) ,2<2X,FQ .5),2<3X,F7.2)/) 

365 FORMAT (" EQUATION FOR A-PROBE PRESSURE ! "/" PA = "F12.6" ♦ " F12. 

*6" * VOl TAGE<raw)*0. 01 ♦ PREF < INCH H20)") 

370 FOR MAT < “ CP0A * "F10.5" CP0B = “F10.7) 

375 FORMAT <" EQUATION FOR B-PROBE PRESSURE : "/" PB = "F12.6" + " F12. 

*6" * VOLTAGE (rawXO . 01 ♦ PREF < I NCH H20)") 

380 FORMAT </“ # PAA<#) PAB<#> YAWA < * ) YAWB <#)”/) 

38S F0RMAT<I2,4< 1X,F7.5)) 

390 FORMAT < " A-PROBE APPROXIMATION RESULTS : YAW * "3 < 5X , F9 . 2 ) /16X - PR 
*ESSURE < I NCH H20 ) = "3 < 3X , F l 1 . 6 ) /2<?X " CPAMAX = "F8.4/) 

395 FORMAT < / - B-PROBE APPROXIMATION RESULTS : YAW0 = "FS.l" PRESSURE 

* < INCH H20 ) - " F 6 . 2 / / ' 

400 FORMAT < " AVERAGE VALUE RESULTS FROM THE A-B SYSTEM; ”//5X "BETA" 4X"G 
*AMMA"5X"Xvel "4X"Pi Tch "6 X"Yqw-7X"XU“6X“XAX"4X"BETA2"/3<F9.5) ,2<2X .F 
*7 .2) . 2 < F9 . 5 ) , 2X , F 7 . 2 ' 



Figure J-2* 



Listing of Data eduction Program &ABRED- 
(Continued on next page.) 
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nt)79 
'i 080 
0081 
008? 
0033 

0084 

0085 

0086 
0087 
0 0 88 

0089 

0090 
; 09 1 

0092 

0093 

0094 

0095 
0 096 
3097 

0098 

0099 

0100 
010 1 
0102 

0103 

0104 

0105 
0108 
3107 
o 108 

0109 

0110 
3111 
0112 
0113 
:i 14 
0115 
3116 
0117 



P0S#-6X-8etQ-5X-Go««a“6X-Xye 1 “SX "P l t c h "7X " Yaw “5 



P AC ( I ) 



DP A 



YA'JBd) 



*F8.3/> 



405 F0RHAT<//////////- 
*X "BE T A2 ’* ) 

410 FORMAT ( M « Y AWA ( I ) PA(I) 

*B( I) PBC(I) DPB “ ) 

415 FOR MAT (I2,8(3X,F7.S)) 

420 FORMAT (/ A PStATIC (DERIVED FROM PAMAX AND XVEL) = 

425 FORMAT (- * ACTUAL YAU ANGLE CPA M ) 

430 FORMAT ( I 4 , 1 2X . F6 . 2 ,3X , F6 . 3 ) 

435 FORMAT ( IS, j(Fl6 .5) ,S(3*,F7.2> ) 

440 FORMAT ( " ENTER THE NAME FOR THE FILE CONTAINING REDUCED DAT A 1 “ / 
*“ DON * T FORGET SECURITY CODE 6 CARTRIDGE REFERENCE NUMBER! V 
* " : i -A2) 

445 FORMAT <//• REDUCED DATA STORED IN FILE t "3 A2 " : ** I? > 

1111 FORMAT ( “ STATEMENT ♦ “14" ERROR * : "F 12 . 2" DETECTED " ) 

1149 FORMAT ( (3A2) ) 

LI = LDGLU ( I SESSN ) 

005 WRITE (LI, 300) NOLF 
READ (LI, 1149) IDUM 
URITE (LI, 1149) ( I CLR ,111 
IF ( IDUM .EQ. 2HN0 ) ~ 

CALL CODE 

READ (IDUM. 305) LO 
IF ( LO .EG. 1 ) GO TO 015 

IF ( LO .EQ. 6 ) GO TO 015 

IF ( LO .EQ. 18 ) GO TO 015 

GO TO 005 
010 LO = 0 

015 IF < LO .EQ. LI ) LO = 0 

URITE (LI, 310) NOLF 
READ (LI, 1149) I P R INI 
WRITE (LI, 1149) ( ICLR, 111=1 ,3) 

URITE (LI, 315) NOLF 
READ (LI, 1149) IPRINT 
WRITE (LI, 1149) ( I CLR ,111 = 1,3) 



x- 1.2) 

GO TO 010 



READ COEFFICICNTFILE FOR THE KULITE MACHNUMBER APPROXIMATION 
FROM DISC INTO ARRAY C0EKX(7,7). 



0119 


IFILE(l) = 


2HMI 


0120 


IF ILE (2) = 


2HST 


3121 


IFILE(3) = 


2HXV 


0122 


ISECU 


00 


0123 


ICR 


26 


U 1 24 


CALL OPEN 


(IDCB 


0125 


JJ = 1 




0126 


IF ( IERR 


.LT. 


0127 


CALL READF 


( IDCB 


0128 


JJ * 2 




•J 129 


IF ( IERR 


.LT . 


3130 


CALL CLOSE 


(IDCB 


3131 


JJ = 3 




0132 


IF ( IERR 


.LT . 

.ne. ; 


0133 


IF (IPRIN1 



t IDCB, I ERR , IFILE , IOPTN , I GECU , ICR , IDC8S) 

0 ) URITE (LI, 1111) J J , IERR 
, IERR ,COEKX, 98,LEN, 1 ) 

0 ) URITE (LI, 1111) J J , IERR 



0 ) 



0134 
3135 
3 136 
0137 
3138 

139 

140 
1141 

14 ? 

3143 

114 4 

3 1 45 
146 
;i4? 
148 
'<49 
150 
3151 

ells 

M54 

155 

156 
. iS“> 
3158 



URITE (LI, 1111) J J , IER R 
GOTO 025 



OUTPUT INPUT DATA. 



020 



URITE (LI, 320) IFILE 

IF ( LO .NE. 0 ) URITE ( LO , 320) IFILE 
WRITE (LI, 325) Cl, 11*1,7) 

IF ( LO .NE. 0 ) URITE (LO, 325) (11,11=1,7) 

DO 020 11=1,7,1 

IF ( LO n£. 0 > URITE (LO, 330) 1 1 , ( COEKX ( I 1 , J 1 ) , J 1 = 1 , 7 , 1 ) 

URITE (LI, 330) II , (COEKX( II , Jl ) , Jl=l ,7, 1) 



READ COEFFICIENTF ILE FOR THE KULITE PITCHANCLE APPROXIMATION 
FROM DISC INTO ARRAY C0EKP(7,7). 



025 



\m ^\ ; m 

IF ILE ( 3 ) = 2HF I 

CALL OPEN (IDCB , IERR , IFILE , IOPTN, ISECU, ICR , IDCBS) 



J J = 4 
IF ( IERR 



.LT. 0 > URITE (LI, HID J J , IERR 



CALL RFADF < I PCB . IERR , COEk P , 9S . LEN , 1 ) 



Figure J-2. 
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0159 

v 160 
0161 
0162 
0 163 
0164 
(J 1 65 

n66 

j 1 67 

j 1 68 

0169 
) 170 
171 
) 172 

0173 

0174 

0175 
J 1 76 
'>177 

0178 

0179 

0180 
) 181 

3182 

3183 
0184 
>185 
0 186 

0187 

0188 
0189 

190 
'191 
J 1 92 
) 193 

0194 

0195 
'196 
0197 
1198 
3199 
:20 0 
>201 
J202 
3203 
1204 
0205 
:206 
3207 
J208 
3209 

210 

3211 

3212 

3213 
:214 
3215 
*216 
3217 
>218 

219 

220 
3221 

223 

>224 

3225 

226 

'227 

228 

229 

230 

231 

232 
3233 

234 

235 
23to 

237 

238 



JJ = 5 

IF ( IERR .LT. 0 ) WRITE (LI, 1111) JJ,IERR 
CALL CLOSE < IDCB, IERR , 0 ) 

JJ * 6 

IF ( IERR .LT. 0 ) URITE (LI, 1111) JJ,IERR 
IF ( IPR INI . NE . 2HYE) GOTO 035 




URITE (LI, 320) IFILE 
IF ( LO NE. 0 ) WRITE ( LO , 320) IFILE 
WRITE (LI, 325) (11,11*1,7) 

IF ( LO .NE. 0 > WRITE (LO, 325) (11,11=1,7) 

DO 030 11=1,7,1 

IF ( LO .NE. 0 ) URITE (LO, 330) 1 1 , ( COEKP ( 1 1 , J1 > , Jl = l , 7 , 1 > 
030 WRITE (LI, 330) 1 1 , ( COEKP < 1 1 J J 1 ) , Ji = i , 7 , 1 > 

’. READ COEFFICIENTFILE FOR THE KULITE CP0B APPROXIMATION 
. FROM DISC INTO ARRAY CQECP(7,7). 

035 i FiLE( 1) * * * 2HMI 

IFILE(2) = 2HST 
IF ILE ( 3 ) = 2HCP 

CALL OPEN ( IDCB,IERR,IFILE,IOPTN,ISECU,ICR,IDCBS) 

IF ( IERR .LT. 0 ) URITE (LI. 1111) JJ,IERR 
CALL READF < I DCB , I ERR , COECPB , 90 , LEN , 1 ) 

J J = 8 

IF ( IERR .LT. 0 ) URITE (LI, 1111) JJ,IERR 
CALL CLOSE ( I DCB , I ER R , 0 ) 

JJ = 9 

IF ( IERR .LT. 0 > URITE (LI, 1111) JJ,IERR 
IF (IPRINi .NE. 2HYE ) GOTO 045 




URITE (LI, 320) IFILE 
IF ( LO .NE. 0 ) URITE ( LO , 320) IFILE 
WRITE (LI, 325) (11,11=1,7) 

IF ( LO .NE. 0 ) URITE (LO, 325) (11,11=1,7) 

DO 040 11=1,7,1 

IF ( LO .NE. 0 ) URITE ( LO . 330) 1 1 , < COECPB ( 1 1 , J 1 ) , J 1 =1 , 7 , 1 ) 
040 URITE (LI, 330) 1 1 , ( COECF B ( 1 1 , J 1 ) , J 1 = 1 , 7 , 1 ) 



READ COEFFICIENTFILE FOR THE , 
APPROXIMATION INTO ARRAY COEO! 



COMBINATION PROBE MACHNUMBER 
IX ( 7 , 7 ) . 



28 



045 ICR 

IFILE(l) * 2HCQ 
IFILE ( 2 ) = 2HEF 
I F ILE ( 3 ) = ‘ 
CALL OPEN 
JJ = 10 
IF ( IERR 



2H2X 

( IDCB , IERR , IFILE , IOPTN, I SECl) ,ICR ,IDCBS) 



.LT. 0 > URITE (LI, 1111) JJ,IERR 
CALL READF ( IDCB , IERR , COEOX , 98 , LEN , 1 ) 

JJ = 11 

IF ( IERR .LT. 0 ) URITE (LI, 1111) JJ,IERR 

CALL CLOSE < I DCB , I ER R , 0 ) 

JJ = 12 

IF ( IERR .LT. 0 ) URITE (LI, 1111) JJ,IERR 
IF (IPRINI .HE. 2MYE) GOTO 055 




URITE (LI, 320) IFILE 
IF ( LO .NE. 0 ) URITE ( LO , 320) IFILE 
WRITE (LI, 325) (11,11=1,7) 

IF ( LO .NE. 0 ) WRITE (LO, 325) (11,11=1,7) 

DO 050 11=1,7,1 

IF < LO .NE. 0 > WRITE ( LO . 330) II, (COE OX (II ,Jl) , J 1 = 1 
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.5239 
° 4 0 
241 
'242 
)243 
244 
.24S 
.246 
'247 

248 

249 
3250 

251 
.252 
;2S3 
;2S4 
255 
.256 
257 
J2S8 
'259 
260 
' 26 1 
.262 
263 
J 2 6 4 
.265 
J266 
267 
j268 
,269 
'270 
>271 
’272 
273 
-274 
275 
<276 
•277 
,278 

279 

280 
201 

■ 292 
<293 
294 
‘235 
;?86 
287 
’298 
289 
; 290 
291 
^92 
*293 
294 
1295 
296 
;297 
298 

•5Q9 

30 0 
• 301 

302 

303 

304 

305 
30b 
3Z7 
3 08 
j09 
'10 
311 

iis 

314 

315 

316 

317 

318 



050 WRITE (LI, 330) 1 1 , ( COEOX ( 1 1 , J 1 > , J 1 = 1 , 7 , 1 ) 



READ COEFFICIENTFILE FDR THE COMBI NAT I ONPRQBE PITCHANGLE 
APPROXIMATION INTO ARRAT C0E0P(7,7) . 



055 IFILE(l) = 2HC0 
IF I LE ( 2 ) * 2HEF 
IF ILE ( 3 ) = 2H2P 

CALL OPEN ( IDCB, IERR , IFILE ,IOPTN, ISECU, ICR ,IDCBS) 
JJ = 13 

IF ( I ERR .LT. 0 ) WRITE (LI, 1111) JJ,IERR 

CALL READF ( IDCB, I ERR , COEOP , 98 J LEN , 1 ) 

JJ * 14 

IF ( IERR .LT. 0 > WRITE (LI, 1111) JJ,IERR 

CALL CLOSE ( I DCB , IERR , 0 ) 

JJ * 15 

IF ( IERR , LT . 0 > WRITE (LI, 1111) JJ,IERR 

IF ( IPR INI .NE. 2HYE) GOTO 065 




WRITE (LI, 320) IFILE 
IF ( LO .NE. 0 ) WRITE (LO, 320) IFILE 
WRITE (LI, 325) (11,11=1,7) 

IF ( LO .NE. 0 ) WRITE (LO, 325) (11,11=1,7) 

DO 060 11=1.7,1 

IF ( LO .NE. 0 ) WRITE ( LO , 330) 1 1 , ( COCOP ( 1 1 , J 1 ) , Jl = 1 , 7 , 1 ) 
060 WRITE (LI, 330) 1 1 , ( COEOP ( 1 1 , J 1 ) , J 1 = 1 , 7 , 1 ) 



065 WRITE (LI , 335) NOLF 

READ (LI, 340) IFILE , ISECU, ICR 
WRITE (LI, 1149) ( I CLR , I 1 =1,3) 

10240 
80 
128 

(IDCB, IERR , IFILE,IOPTN,ISECU,lCR,IDCBS) 



IL 

ISIZE(l) = 

I S 1 2E ( 2 > * 
CALL OPEN 
JJ = 13 
IF ( IERR .LT. 



ir % ic.n„ 0 ) WRITE (LI, 1111) JJ , IERR 

CALL READF < I DCB , IERR , DATA , IL , LEN , 1 ) 

JJ = 14 

IF ( IERR .LT. 0 ) WRITE (Ll.llll) JJ,IERR 
CALL CLOSE ( I DCB , I ER R , 0 ) 

JJ = 15 

IF ( IERR .LT. 0 ) WRITE (LI, till) JJ,IERR 
WRITE (LI, 345) NOLF 
READ (LI, 350) I ST AR T I END 
(LI ,355) IFILE , t CR 



UR I TE 
IF ( LO .*£ 



0 ) WRITE ( LO , 355 ) IFILE, ICR 




PI 
P23 
P 4 

PREF 

RPM 

RADIS 

YAW 

TT2 

DO 070 
J 

PBARO 
PI 
P23 
P 4 

PREF 
RPM 
RADIS 
YAW 
070 TT2 
PI 
P23 
P 4 



. 0 
. 0 
. 0 
. 0 
. 0 
. 0 
. 0 
. 0 

.91 
( f-i ) * 
DAT A ( 20 



20 

J + 7)*i . 3S85 

PI + ( DATA( 20 , J * 3) - PAT A ( 20 , J ♦ 1) - PBARO ) *1 00*1000 

= P23 + ( DATA ( 2 0 , J ♦ 4) - DAT A ( 20 , J+ 1) + PBAR 0)*1QO*1030 

- P4 ♦ ( DAT A ( 20 , J 5) - PAT A i 20 . J+ 1) - P & AR 0 ) * 1 0 0 * 1 0 G 0 

= PREF+ DAI A(20 , J + l 4 > * 100 * 1000 

— PPM ♦ DATA( <5 I) J + a ) ♦ 10 

= RADISH ( DATA (5d 1 J+6 ) +DATA ( 20 ,J+10)+DATA(20,J+12>)/3*1000 
= YAW + DATA(20 J+9> * 10000 

= TT2 + ( DAT A(20 ,J+l5) + DATA ( 20 , J *16 ) > * 1000 

* PI / 9 

= P23 / 9 

= P4 / 9 



Figure J-2. Listing of Data Reduction Program &ABRED. 
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319 


PREF 


S 


& e h f/ , % 


520 


RPM 


5 


321 


RADIS 


S 


RADIS / 9 


322 


RADIS 


3 


5.51 - RADIS 


.'323 


YAW 


= 


YAW / 9 


:324 


TT2 


9 


TT2 / 9 


325 


TT2 


C 


31.9557 ♦ 30.6827 * TT2 - 0.3679 * TT2 * TT2 


726 


TT2 


at 


( ( TT2 - 32) * S / 9 > ♦ 273.15 


jny 


UT2 


XI 


SORT ( 2008 * TT2 ) 


328 


U 


is 


(RPM / 60) * RADIS * 2 * 3.14159 * 0.0254 


> 329 


XU 


S3 


U / UT2 


530 


BETA 


m 


( PI - P23 ) / Pi 


331 


GAMMA 


sc 


( Pi - P4 > / ( PI - P23 ) 


332 

•333 


DELTA 


s 


GAMMA * BETA 


334 


XVEL 


= 


0 . 0 


33S 


PHI 


= 


0 . 1) 


336 


DO 075 


11 = 


3 1,7,1 


337 


DO 075 


12 : 


3 1,7 1 


338 


XUEL 


s 


XUEL ♦ (C0E0X(Ii > I2)*DELTA*4(I2'l))*GAMMA**(Ii-i) 


1339 


075 PHI 


tt 


PHI ♦ (COEOP ( 11 , I2)*DELTA**( 12-1 ) )*f;AMMA**( 11-1 ) 
SORT ((2/(1 .402-1 ) >*( (XUEL*XVEL)/< i-( XUEL*XUEL) ) ) ) 


740 


XM 


= 


.341 


PTOTAL 


* 


PI 


342 


PSTAT 


= 


PTOTAL * ( i-XVEL*XVEL)**(i . 402/ .402) 


343 


URITE 


(LI .360) PTOTAL .PST AT. XUEL .XM, PHI ,YAU 


344 

345 


IF < LO .NE. 0 ) WRITE (L0,360) P TOT AL , PSTAT , XUEL , XM , PHI , YAW 
C 



546 
3 47 
,340 
3349 
350 
'351 
352 
.353 
0354 
j 355 
•33S6 
J357 
J358 
1359 
‘,360 

3361 

3362 
>363 
^364 



PERFORM ONLINE CALIBRATION. A-PRDBE FIRST. 



FIND MAXIMUM OUTPUT OF A-PROBE. 



080 



DO 080 I - 1,9.1 
J = ( 1-1 ) * 20 

X 1 < I ) * DAT A ( 20 , J + 1 1 ) 

Y (I) = DATA ( 20 , J+ 17 ) 

CALL MAT2 (9,5,C0EF,-4> 



* 10000 * 3 . 14159 / 180 




" 366 


L, 


xo 


= 0.4 


: 367 


085 


DEAMAX 


= FND (' 


3368 




IF ( ABS ( DEAMAX ) .1 


) 369 




XO = XO - 


- DEAMAX 


,370 




GOTO 085 




1 37 1 


090 


EAMAX 


= FNP (4 


5 372 




SLOPEA 


= (DATA 


373 




PHI 


* PHI * 



1 374 
•1375 
376 
1377 
378 
J 379 
J 330 
J 381 

382 

383 
1334 
1385 

386 
1537 
'388 
539 
390 
j 391 
392 
:393 
.394 
'795 
-J396 
397 
598 



. O.OnOi ) GOTO 090 

(2*C0EF(3)+6*C0EF(4 ) *X0 + 12*C0EF ( 5 ) *X 0 *X0 > 



3.14159 / 180. 




EQ3 - FNP < 4 . CP OA , PHI ) 

PAMAX = EQ3 * v PTO TAL-PST AT ) ♦ P5TAT 
5ECTA = PAMAX - PREF - SLOPEA * EAMAX 

POA = SECTA + SLOPEA * EAMAX ♦ PREF 

IF < IPRINT .NE. 7HfE ) GOTO 095 
URITE (LI, 365) SECTA .SLOPE A 

IF (LO .NE. 0 ) WRITE <L0,36S> SECTA,SLOPEA 
095 CONTINUE 



B-PROBE CALIBRATION. 

FIND MAXIMUM OUTPUT FIRST. 



DO 100 I * 1,8,1 
J = ( I-i > * 20 

X1(I) = DATA(20 , J + 13) 

100 Y (I ) = DAT A ( 20^ J+ 18 ) 

CALL MAT2 ( 8 , 5 , COEF , -4 > 



* 1 0000 * 3 . 14159 / 180 



Figure J-2. Listing of Data Reduction Program &ABRED . 
(Continued on next page.) 
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039? 

0400 

0401 



0403 




XO 


S 


0 . 0 




0404 


105 


DEBMA 


S 


FND 


< 


0405 




IF (ABS(DEBMA) 




0406 




XO 


= 


xo - 


] 


0407 




GOTO 105 








0408 


110 


EBMAX 


s 


FNP 


( 


0409 




PSTATA 


a 


PSTAT 


0410 




EQ5 




0.0 





INITIAL ESTIMATE FOR THE APPROXIMATION IS i YAU * 0 (deg) 



.LT . 0.00001 ) GOTO 110 

DEBMA / ( 2*C0EF (3)+6*CO£F(4)*XO+i2*CQEF(S)*XO*XO> 



PRE^ 



0411 

0412 

0413 

0414 
0 4 1 S 

0416 

0417 

0418 

0419 
0 420 

0421 

0422 

0423 

0424 
0425' 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 
* 0443 

0444 

0445 

0446 

0447 

0448 

0449 
0 450 

0451 

0452 
0 453 

0454 

0455 

0456 
0 457 
0458 
14 59 
;i 46 0 
j 4 6 1 
4462 
J4 6 3 

0464 

0465 
04b6 
•J 467 

4b8 

469 
0470 
0 471 

m 

0474 

0475 
1476 

0 477 

470 



CALCULATE CP0B FROM COMBINATION PROBE RESULTS. 



115 



120 



DO IIS II = 1,5,1 
DO US J1 = 1.5,1 

EQ5 * EQ5 * (COECPBdi , J 1 ) *XVEL** < J 1 - 1 ) ) *PHI ** ( I 1- i > 

WRITE (LI. 370) EQ3.EQ5 

IF (LO ,NC. 0> WRITE < LO , 37 0 ) EQ3,EQ5 

POB = £05 * (PTOTAL-PSTAT) + PSTAT 

PKB = POB ♦ PREF 

SLOPEB = ( DATA (1.170) ♦ DATA(1,190) ) / (-2.0) * 100*1000 

SECTB » PKB - P &EF - SLOPEB * EBMAX 
IF ( IPRINT .NE. 2HYE ) GOTO 120 
WRITE (LI. 375) SFCTB, SLOPEB 

IF (LO .NE. 0 ) URITE (L0,37S> SECTB, SLOPEB 
CONTINUE 



START DATA REDUCTION. 

FIRST CALCULATE THE AUER AGE FLOW PARAMETERS USING THE 
OVERALL VALUES FROM THE A AND B PROBE AND THE JUST 
ESTABLISHED CALIBRTION. 



DO 12S I 
J 

P AA ( I ) 
PAB(I) 

P AA ( I ) 
PAB( I) 
YAUA( I ) 
125 YAWB(I) 



1.9.1 

(i-i) * 20 

DAT A(20,J + i?> 
DATA(20 , J+18) 
SECTA + SLOPEA 
SECTB + SLOPEB 
DA r A ( 20 , J+ 1 1 ) * 
DATA ( 2 0 , J + 13) 



* PAA(I) 
« P AB ( I ) 
1 0 0 0 0 
1 0 0 0 0 



DAT A (20 . J+l 4) *100*1 000 
DATA < 2O,J+14)*iO0*10OO 



IF ( IPRINT .NE. 2HYE ) GOTO 135 
WRITE (LI. 380) 

IF (LO .NE. 0 ) URITE (LO,3G0> 

DO 130 I = 1,9,1 

URITE (LI ,38S) l.PAA(I),PAB(I) ,YAUA( I ) , Y AUB ( I ) 

130 IF ( LO . n£ . 0) u6lTE(LO, 38S) I , P AA ( I ) , P AB ( I ) , YAUA ( I ) , Y AUB ( I ) 
1 35 CONTINUE 



APPROXIMATE A-PROBE PRESSURES. 



DO 140 I = 1,9.1 
X 1 ( I > = YAUA(I) 

140 Y ( I ) = PAA ( I ) 

CALL MAT2 ( 9 , 5 , COE F , -4 > 



FIND MAX. OUTPUT OF A PROBE. 



DX 126.0 

X0 = -40.0 

145 DP = (FNP(4 .COEF.XO ) - FNP ( 4 , COEF , ( X0 + DX ) ) ) 

IF (ABS(DP) LT. 0.0001 ) GOTO ISO 

DP X = -2.0*COEF(3)*DX-6.0*COEF(4>*X0*DX-3.0*COEF(4)*DX*PX- 

12. 0»gOEF^)*XgJX0*DX-l2*COEF.5)*X0*DX*DX-4. 0 *COEF ( S ) * DX* *3 



X0 

GOTO 145 
150 ASL 
ASR 
AA0 
PArtAX 



= XO 



xo 

X0 ♦ DX 

X0 ♦ DX / 2.0 

FNP ( 4 .CCEF . AAO ) 



Figure J-2. Listing of Data Reduction Program &ABRED . 
(Continued on next page.) 
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1479 

480 

481 

482 

483 
1 484 

485 

486 

487 

488 

489 

490 

491 

492 

493 
4494 

49S 

0496 

497 

498 

499 

500 

501 



155 



PSAL = FNP ( 4 , COEF , ASL ) 

PSAR = FNP ( 4 , COEF . ASR ) 

PSA = (PSAL ♦ PSAR ) / 2.0 

BETA * (PAMAX - PSA ) / PAMAX 

CPAHAX * (PAMAX - PSA ) / ( PTOTAL - PSA ) 

IF ( IPRINT . NE . 2NYE ) GOTO 155 

WRITE (LI. 390 ) ASL , AA0 . ASR .P SAL .PAMAX .PSAR , CP Ah AX 

IF (LO .n£. 0 ) WRITE (LO,S?0) ASL , AA 6 , ASR , PSAL , P AhAX , PSAR , CP AMAX 
CONTINUE 




160 



DO 160 I = 1.9,1 
X 1 ( I ) «= YAUB(I) 

Y (I) = P A B (I) 

CALL MAT2 (9,5, COEF , -4 ) 



FIND MAXIMUM OUTPUT OF B-PROBE. 



' S U 2 
T503 


L 


XO 


.504 


1 65 


DPX 


35 05 




IF ( ABSC 


506 




XO = XO 


507 




GOTO 165 


508 


170 


ABO 


■509 




P BMAX 


510 




IF ( IPR II 


511 




WRITE (LI 


512 




IF ( LO .1 


3513 


175 


CONTINUE 


514 




CP BMAX 


515 




gamma 


516 




XVEL 


517 




PHI 


■518 




DO 180 11 


1519 




DO 180 12 


520 




XUEL 



= 0.00 

= FND( 4 .COEF, X0 ) 

DPX ) .LT. 0.00001 ) GOTO 170 
- DPX / ( 2*C0EF ( 3 ) ♦ 6*COEF(4)*X0 

= X0 

= FNP (4, COEF, ABO) 

NT .NE. 2HYE ) GOTO 175 
,395) AB0.PBMAX 

NE. 0 ) UR I TE ( LO , 395 ) ABO , P BMAX 

= ( P BMAX - PSA ) / (PTOTAL - PSA ) 
= ( CP AMAX - CP BMAX ) / CP AMAX 
= 0.0 
= 0.0 
= 1,7,1 



♦ l2*COEF(S)*X0*X0) 



3521 

522 

523 
>524 
J525 
'526 

527 

528 

529 

m 

532 

533 
-534 

535 

536 

537 

538 

539 

540 

541 

542 

543 
•544 
'45 

546 

547 

548 
49 

’50 

551 

'552 

553 

554 
^55 
556 

997 

558 



180 



PHI 
PHI 
X AX 
BETAS 



= PHI 
= PHI 
= XUEL * 



♦ (COEKPdl ,12) *GAMMA**( 12-1 ) )* DETA**(I1- 

* 180 / 3.14159 

C0S(PMI*3. 14159/180 ) * 



1 ) 



- __ COS ( AB0*3 . 1 4159/100 ) 

= ATAN( (XU-XVEL*C0S(PHI*3. 1 4 1 59/ 1 8 0 ) *S I N ( ABO *3 . 14159 / 180 ) ) 



/ X AX ) * 160 / 3.14159 
WRITE (LI, 400 ) BETA, GAMMA. XVF.L .PHI ,AB0 , XU , XAX . BET A2 
I F ( LO .NE. 0) WRITE (LO,400) BET A, GAMMA , XUEL, PHI , ABO , XU , XAX , BETA2 




185 



WRITE (LI, 405) 

IF ( LO .NE. 0 ) WRITE (LO,405) 

DO 185 I = 1.9,1 
J = ( 1-1 ) * 20 

YAWA(I) = DATA ( 20 , J ♦ 1 1 ) * 10000 
YAWB(I) = DATA(2U , J-*-l3) * 1 0000 
PREFP(I) =■ DATA(20 , J+14 ) * 100*1000 



START OF DO LOOP 



DO 270 I = ISTART, IEND , 1 
DO 190 J = 1, 9,1 

J1 = J * 2 

- J < 2 ♦ 1 
= DATA ( J 1 ,1) * 0.01 
= DATA( J2 , I) * 0 . 0 1 



J 2 

PA( J) 
PB( J) 
PA< J ) 



= SECTA ♦ SLOPEA * PA(J> 



P REFP v J ) 



Figure J-2, 



Listing of Data Reduction Program &ABRED . 
(Continued on next page.) 
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190 PB<J> 



95S9 

3560 

J561 

J562 

0563 

3564 

1565 

566 

567 
•Sb8 
0569 

570 

571 
.572 
. 573 

574 

575 

576 

577 

578 
■579 

580 

581 

582 

583 

584 
.585 

586 

.587 

588 

.589 

c 90 

591 

592 

593 
5^4 
c 95 
896 

.597 

598 

599 
6 0 0 

.601 
'602 
• 603 
•60 A 
605 
;*06 

607 

608 
o09 
o 1 0 
611 
612 
o 1 3 

614 

615 
-616 
617 
518 
619 
o20 
621 
622 
623 
'624 
b 2 S 
626 

627 

628 
29 

^30 
> o3 1 

io33 

634 

635 
*>36 

637 

638 



=» SECTB + SLOPES * PB(J> ♦ PREFP(J) 




DO 195 II 
XI < II ) 

195 Y < II ) 



= i. 9 ,* 

= yaua< in 

- PA (II) 

CALL MAT2 (9.5 .COEF , -4 > 

DO 200 II = 1,^,1 
200 PAC(Ii) = FNP < 4 ,COEF,YAUA( 1 1 ) ) 



FIND MAX. OUTPUT OF A PROBE. 



DX = 126.0 

X0 * -40.0 

205 DP = (FNP ( 4 .COEF ,X0 ) - FNP(4C0EF, (X0 + DX) )) 

IF (ABS(DP) . L T . 0.001 ) GOTO 2i0 

DP X * -2.0*COE c <3)*DX-fe.O*C.OEF(4>*XO*DX-3.0*COEF(4)*DX*DX- 
* l2.0*COEF<5>*X0 *DX*DX- 1 2*C0EF (5>*X0*X0*DX-4 . 0 *CO£F ( 5 > *DX ** 3 

X0 = X0 - DP / DP X 
GOTO 205 
210 ASL = X0 

ASR = XO ♦ DX 

AA 0 = X 0 ♦ DX / 2.0 

P AMAX- FNP < 4 , COEF , AAO > 

PSAL = FNP(4, COEF, ASL) 

PSAR * FNP <4, COEF, ASR) 

PSA = (PSAL ♦ PSAR ) / 2.0 

BETA « (PAMAX - PSA ) / PAMAX 

CPAMAX= (PAMAX - PSA > / ( PTOTAL - PSA ) 

IF (IPRINT .NE. 2HYE ) GOTO 215 

WRITE (LI. 390) ASL.AAQ .ASR.PSAL.P AMAX .PSAR, CP AMAX 

IF (LO .NE. 0 ) URlTE ( LO , 390 ) ASL ,AA0 , ASR ,PSAL , PAMAX ,PSAR , CPAMAX 
215 CONTINUE 




DO 220 II * 1.9.1 
XI ( II ) = YAUB( I 1 ) 

220 Y ( 1 1 > = P B (ID 

CALL MAT2 ( 9 . S , COEF , -4 > 

IF (IPRINT .NE. 2HY£ ) GOTO 225 
WRITE (LI, 410) 

IF (LO .NE. 0 ) WRITE <LO,410) 
225 CONTINUE 




DO 230 II = 1,9,1 
PBC = FNP ( 4 ,COFF ' YAWB( I 1 ) ) 

DP A = P A ( II) - PAC< 11 ) 

DP B - PB< ID - PBC 

IF (IPRINT .NE. 2HYE ) GOTO 230 

WRITE (LI ,415) II, Y AWA ( 1 1 ) , P A ( I 1 ) , P AC < I 1 > , DP A, YAWP v I 1 ) , P B < 1 1 ) , PBC , 
*DPB 

I F (LO .NE. 0> WRITE (L0,4i5) I 1 , Y AWA < 1 1 > , P A ( I 1 > , P AC ( 1 1) , DP A , 
*rAWB< II ) ,PB( I 1> ,PBC,DPB 
230 CONTINUE 



FIND MAXIMUH OUTPUT OF B-PROBE. 



235 ?r< ABS<O?xTO! C 8^«5 0 * GOTO 2,0 

X 0 S xo - DP X / < 2 *C 0 E p \ 3 > ♦ 6 *C 0 EF ( 4 ) *X 0 ♦ 1 2 *COEF ( 5 ) *X 0 *X 0 ) 
GOTO 235 

240 ABO = X0 

PBMAX = FNP(4,COEF,AF0> 

IF (IPRINT .NE. 2HYE ' GOTO 245 



Figure J-2. Listing of Data Reduction Program SABRED . 
(Continued on next page.) 
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j639 
640 
>641 
5 42 
*643 
o44 
*645 
646 
j 4 7 

648 

649 

650 
531 

652 

653 

654 

655 

656 

657 
1653 

659 

660 
661 

J662 
663 
66 4 
<665 
666 
667 
068 

669 

670 

o7 1 

672 

673 

674 

675 

676 

677 

678 

679 
630 
681 
632 
683 
634 
685 
636 
687 
583 
589 
a 90 
591 

692 

693 

694 

695 

696 

697 

698 
W9 

700 

701 

702 
"03 
7 0 4 
"05 
706 
"07 
708 
^ 09 
"10 
"11 
"12 
"13 
714 
"15 
7 1 6 
"17 
"18 

72? 

721 

>722 

723 

724 

725 

726 
"27 
728 



WRITE (LI. 395) ABO.P&MAX 

IF ( LO .NE. 0 ) WRITE (L0,39S> ABO , P BMAX 
245 CONTINUE 

( PBMAX - PSA ) / (PTOTAL - PSA ) 



CPBMAX 
GAMMA 
XUEL 
PHI 

DO 250 II 
DO 250 12 
XUEL 
250 PHI 



(CPAMAX - CPBMAX ) / CPAMAX 
0 . 0 
0 . 0 
1,7,1 
1,7,1 
XVEL + 

PHI 



<COEKX< II , I?) *GAHMAX*( 12-1 ) )* PETAXX(Il-l) 
<COEKP< II . 12) *GAMMAx*( 12-1 > )X E<ETA*X ( 1 1- 1 ) 



IF (IPRINT .NE. 2HYE ) GOTO ^65 
PSTAT ** PAMAX 4(1- XUELXXUEL ) X* 3.5 

WRITE (LI, 420) PSTAT 

IF (LO .NE. 0 ) WRITE (L0,42G) PSTAT 
WRITE (LI. 425) 

IF (LO .n£. 0 ) WRITE ( LO , 425 ) 

DO 260 II * 1,9.1 

CPA * ( P A ( I 1 ) - PSTAT) / (PAMAX - PSTAT) 

YAW = YAWA( II )- ABO 

WRITE (LI. 430 ) II. YAW, CPA 

IF (LO .NE. 0 ) uAlTE (LO,430) I1,VAU,CPA 



260 CONTINUE 
265 CONTINUE 
PHI 
BETA2 

X 

X 



PHI X 180 / 3.14159 

ATAN ((XU - XVEL * SIN(AB0 X 3.14159 / 180) * 

COS( PHI * 3.14159 / 10Q)> / 

( XVELXCOS ( ABO X3 . 1 4 159/ 1 80 ) XC03 ( PHI X3 . 14159/180 ) ) )X 
180 / 3 . 14159 




WRITE (LI, 435) I , BETA , GAMMA, XVEL , PH I , ABO , BETA2 
IF (LO .NE. 0) WRITE (L0,43S) I , BET A , GAMMA , XVEL , PHI , ABO , BETA2 
RDATA(1,I) = XVEL 
RDATA(?,I) = PHI 
R DA TA ( 3 , I ) = ABO 

270 CONTINUE 




IL = 1536 

ISIZE < 2 ) = 12 

WRITE (LI, 440) NOLF 
READ (LI. 340) I FILE , ISECU , ICR 

j 5 l - i^ re ^ t <IDCB » IERR > IFiLE > i5I2E > iTyPE > ISECU > iCR > IDCBS) 

IF TlERR .LT. 0 ) WRITE(1 .1111 ) JJ.IERR 
CALL OPEN ( IDCB, IERR , IFILE, IOPTN, ISECU, ICR, IDCBS) 

JJ = 17 

IF (IERR .LT. O ) WRITE(1 .1111 ) JJ,IERR 
CALL WRITF ( IDCB, IERR ^DATA, IL) 

JJ * 18 

IF (IERR .LT. 0 ) URITEd ,1111 ) JJ,IERR 
CALL CLOSE ( I DCB , I ERR , 0 ) 

JJ = 19 

IF (IERR .LT. 0 ) WRITE (1,1111) JJ,IERR 
WRITE (LI. 445) IFILE, ICR 

IF (LO . NE . 0 ) WRITE (L0,44S> IFILE, ICR 
STOP 7777 
END 

REAL FUNCTION FNP ( NOR DER , COEFF , ZX ) 

REAL C0EF9(7) 

A 1 * COEFF(NORDER + l ) 

IF ( NORDER .EG. 0 ) GOTO 02 
DO 0 1 11 = 1 , NORDER , 1 
I = NORDER 4 1 - II 
A1 = COEFF ( I )*ZXXA1 
FNP = A 1 
RETURN 
END 

REAL FUNCTION FND ( NOR DER , COEFF , ZX ) 
real COEFF (. 7 ' 

REAL COLFFD <. 6 ) 

DU 01 1 = 1 . NORDER . 1 

sprite fim&w 1 

NOR DR = NORDER - 1 
IF ( NOR DR .EQ. 0 ) GOTO 03 
DO 02 II - 1 , NOR DR . 1 
I ■ ( NORDR 4 1) -II 

02 A1 = COEFFD(I)4ZXXAl 

03 FND =A1 
RETURN 
END 



01 

02 



0 1 



Figure J-2 



Listing of Data Reduction Program &ABRED 



APPENDIX K 



PLOTT PROGRAMS FOR REDUCED DATA 

The plot programs &PLOTX , &PLOTY and &PLOTP can be used 
to produce plots of the results obtained from the A and B 
probe. They are all almost identical except for which quanti- 
ties of the flow vector they plot and the corresponding limits 
of the plots. Only one program description and one flow chart 
are given and the differences between the three programs are 
pointed out where they appear. 

First, the program asks the user to key in the name of the 
data file containing the reduced data along with its cartridge 
reference number. This file is then read into an array 
DATA(3,256). The user has to decide whether he would like a 
plot on the X-Y plotter or just on the screen. Plots on the 
screen are much faster than those from the X-Y plotter and it 
is often only necessary to get a fast idea of the general 
value of the reduced data. However, X-Y plots are rather use- 
ful for documentation purposes. Once this decision is made 
either way, the use of the plot has to be specified. This 
must be done at any time the program is used. The physical 
dimensions of the plot have to be matched to the particular 
needs of the user. 

Plot sizes have to be given in inches times ten. One 
inch is set equal to 25 millimeters (instead of 25.4 mm) by 
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the HP plotter software. The values of XMIN and YMIN (lower 
left corner of plot) should not be smaller than 5.0 (0.5 inches 
or 12.5 mm), in order to leave sufficient space for the line 
titles. It is advisable to scale the lengths of the axes in 

a way that even measures in inches correspond to even numbers 

of the quantities plotted. For example, 10 degrees in yaw 
angle equivalent to 1 inch. Following are the limits of the 
quantities to be plotted: 

For all programs: 0 - circumferential position S 256 

Program PCOTX: 0.12 S X (Mach number equivalent) - 0.2Q 

Program PCOTP : -4° £ pitch angle £ 16° 

Program PCOTY : 10° ^ yaw angle 50° 

Before the programs are used, the operator should check to 
see if his data falls within these limits. If it exceeds any 
limits, adjustments have to be made in the corresponding pro- 
gram line #67. 

In order to compare different sets of data it is often 
helpful to plot the data from two or more files on one plot. 

To avoid having the same grid plotted any time one set of data 
is plotted, the user has to specify whether he wants to have 
a full grid (frame) plotted or not. He is also given a choice 
of 7 different line styles in order to distinguish similar 
but different data. For details of the line styles and plot 
software details see Ref. 11. 

Once all this input is given the desired program will 
produce a plot as specified. in case of the X-Y plotter the 
number one pen is selected automatically by the program. 
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Thus the user should make sure that a good pen of the right 
color is inserted in that slot. When the complete graph is 
drawn, the program will stop. 

Figure K-l gives a flow chart of the program while Fig. 
K-2 is a program listing. 



Esternals : 


CLOSE, DRAW, 
VIEWP, WINDW 


FXD , MOVE, OPEN, PLOTR, READF , SETAR, 


Variable 


Type 


Description 


DATA ( 3 , 256) 


Real 


Reduced data array 


I BUM 


Integer 


Dummy variable 


ICR 


Integer 


Cartridge reference number 


ID 


Integer 




IDCB (144) 


Integer 


Data control block 


IDCBS 


Integer 


Control block length (of IDCB) 


IDUM 


Integer 


Dummy variable 


IFILE (3) 


Integer 


Array containing file name 


IGCB (192) 


Integer 


Graphic data control block 


IL 


Integer 


Total number of words to be stored 
in raw data file (two words for one 
data value) 


ILINE 


Integer 


Line style determinator 


ISECU 


Integer 


Security code 


ISIZE (2) 


Integer 


Array to specify file dimensions (1st 
word for number of records, 2nd for 
record length) 


ITYPE 


Integer 


Type of data file 


LU 


Integer 


Output device number (screen/plotter) 


X ( 256 ) 


Real 


Data array for X values 
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Variable 



Type 



Description 



XMAX 


Real 


XMIN 


Real 


Y (256) 


Real 


YMAX 


Real 


YMIN 


Real 



Maximum value of physical plot size 
(right side) 

Minimum value of physical plot size 
(left side) 

Data array for Y values 

Maximum value of physical plot size 
(upper limit) 

Minimum value of physical plot size 
(lower limit) 
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START 



| READ DA I A I- J. Llr.: | 




NO 


I'D : 


= 2 




I..U : 


= .1. 3 




(input R.inrs.[?Fl 




PL 01 T DATA 
LINE STYLE 


USING 
AS I) E S [WED 







c 



STOP 



) 



Figure K-l. 



Flow Chart of Plot Programs SPLOTX, &PLOTY or &PLOTP . 
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I'LOTX T - 0 0 0 0 4 IS ON CR00026 USING 00014 BLKS R=OOQO 



00 1 

0 0 2 
100 5 
: 0 0 4 
005 
j 0 0 6 
0 07 
JOOQ 
00? 

) 0 1 o 

Oil 
'012 
»13 
014 
0 1S 
116 
017 
013 
01? 
0 2 0 
021 
j 022 

023 

024 

025 

026 

027 

028 
0 29 
0 3 0 
031 
0 32 
0 33 

iO 34 
<0 3S 
J0 36 
0 37 
t 0 38 
0 5? 
0 40 
'141 
0 42 
0 4 3 
/ 0 44 

4 43 
0 46 

0 47 
048 

1 4? 
050 
'101 

'052 

05 5 
M 5 4 
OSS 
0 36 
057 

0 58 

•i.S? 

0 60 

1 61 
0 62 

'06 3 
0 64 

0 6 '.i 
166 
10 67 
16H 
06? 

070 

071 

072 
07 3 
074 

J 0 75 

076 

077 

078 

m 
081 
0 02 
083 



FTN4,L 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



PROGRAM PLOTX (3,9?) 



THIS IS PROGRAM PLOTX<vel> 

IT PLOTTS X (MACHNUMBER) DISTRIBUTIONS AS ESTABLISHED WITH 
PROGRAM ABRED. 

X IS EQUIVALENT TO MACHNUMBER AND GIVEN AS A FUNCTION OF 
CIRCUMFERRENTIAL POSITION. 

ACTUAL PLOTTSIZE IS USER INPUT. 



100 
1 0 1 
102 

103 
1 04 
1 OS 
1 06 

107 

108 
14? 

ill! 



DIMENSION IGCB< 1?2 ) 
REAL ' 

INTEGER 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

FORMAT (' 

FORMAT ( 

FORMAT ( " 



DAT A ( 4 , 256 ).X(256),Y<2S6) 
IDCB< 144) , IFILE (3> , ISIZE(2) 



/ 144/ 

/ 00 / 

/ 1 / 

/ 2048/ 

/ 16/ 

/ 128/ 

Enter the none of the data file! - ) 

Enter the CR nunber ' ") 

If you wont the plott on the plotter, key PL, anythingels 



IDCBS 
I SECU 
I TYPE 
IL 

ISIZE<1 ) 
I SIZE < 2 ) 



fe for the terminal ,- > 

FORMAT ( "Enter Xplotnin ! ") 

FORMAT (“Enter Xplotnox » '* ) 

FORMAT (“Enter Yplotnin »"> 

FORMAT (“Enter Yplotnox !"> 

FOR MAT ( Do you need a complete new frome?"/* Answer YES or NO*“) 



( 0 - 6 ) 



*) 



“14“ DETECTED " ) 



FORMAT (•’ Enter line style 
FORMAT ( ( 3A2 ) ) 

FORMAT ( - STATEMENT ♦ :“I3“ ERROR ♦ 

LI = LOGLU ( I SESSN ) 

WR ITE (LI , 100 > 

READ (LI, 14?) IFILE 
WRITE (LI, 10 1) 

READ (LI, *) ICR 

CALL OPEN ( I DCS, I ERR , IF ILE , I OP TN , ISECU , ICR , IDCBS) 
JJ = 1 

IF ( IERR .LT. 0 > WRITE (LI. 1111) JJ,IERR 

CALL READF ( IDCB, IERR , DATA , 1l, LEN , 1 > 

J J =2 

IF (IERR .LT. 0 ) WRITE (LI ,1111) JJ,IERR 
JJ = 3 

CALL CLOSE ( IDCB , IERR , 0 ) 

IF (IERR .LT. 0 ) WRITE (LI^lll) JJ,IERR 
lU = 1 
ID = 1 

WRITE (LI, 102) 

READ (LI, 14?) I BUM 
IF (I BUM .EQ. 2HPL ) 

IF (ID .EQ. 2 ) 

WRITE < L. I , i 0 3 ) 

READ (LI, *) XMIN 
WRITE (LI, 104) 

READ (LI, *> XMAX 
WRITE (LI 105) 

READ (LI, *) YMIN 
WRITE (LI, 106) 

READ (LI. *> Y MAX 



ID = 2 
LU = 13 



CALL PLDt 4 ( IGCB, ID, 1 ,LU> 
CALL SET AR ( IGCB , 1 . o ) 



CALL VIEWP ( IGCB, XMIN .XMAX , YMIN, YMAX) 

CALL WINDU ( IGCB,0 . 0 ,2S6. 0 , 0 . 18, 0 . 24) 

WRITE (LI, 107) 

READ ( L J ,14?) IDUM 
UR ITE (LI, 108) 

READ (LI, *> ILIME 
CALL LINE (IGCB.ILINE) 

IF ( IDUM .NE. 2HYE ) GOTO 05 
CALL FXD (IGCB, 2) 

CALL PEN ( I GCB , 1 ) 

CALL LGRID ( IGCB , - 1 6 . , . 0 i , 0 . 0 , 0 . 12 , 4 . 0 , 2 . 0 , 1 . 0 ) 
05 CONTINUE 

CALL MOVE ( IGCB ,Q.0,DATA(1,1)) 

10 1 : 

10 CALL DR AU < IGCB , X J , DAT A < 1 , I > > 

STOP 7777 
END 



Figure K-2. 



Listing of Reduced Data Plott Program &PLOTX. 
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